=> Bootstrap dependency digest>=20211023: found digest-20220214
===> Skipping vulnerability checks.
WARNING: No /usr/pkg/pkgdb/pkg-vulnerabilities file found.
WARNING: To fix run: `/usr/sbin/pkg_admin -K /usr/pkg/pkgdb fetch-pkg-vulnerabilities'.
===> Building for stumpwm-24.11
=> Use the real destdir
echo '(declaim (sb-ext:muffle-conditions cl:warning))' > /tmp/wm/stumpwm/work/.home/.sbclrc
/usr/pkg/bin/sbcl --non-interactive --eval "(require 'asdf)" --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load ./make-image.lisp
This is SBCL 2.6.7, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/package.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/package-tmpGHU3ALSV.fasl
; compilation finished in 0:00:00.021
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/definitions.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/definitions-tmpAAURSO1.fasl
; compilation finished in 0:00:00.029
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DEFINE-CONSTANT in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/binding.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/binding-tmp5GEXGEG5.fasl
; compilation finished in 0:00:00.037
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IF-LET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET* in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/strings.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/strings-tmpAR3FSGEY.fasl
; compilation finished in 0:00:00.008
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/conditions.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/conditions-tmpJAIDFZTC.fasl
; compilation finished in 0:00:00.042
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IGNORE-SOME-CONDITIONS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNWIND-PROTECT-CASE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/symbols.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/symbols-tmp8V3J6PE9.fasl
; compilation finished in 0:00:00.033
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/macros.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/macros-tmp9V47YWQF.fasl
; compilation finished in 0:00:00.200
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-GENSYMS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-UNIQUE-NAMES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ONCE-ONLY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CCASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-ECASE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/functions.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/functions-tmp9BN22RMA.fasl
; compilation finished in 0:00:00.107
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::ENSURE-FUNCTIONF/1 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-FUNCTIONF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NAMED-LAMBDA in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/lists.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/lists-tmp1CXFJSK9.fasl
; compilation finished in 0:00:00.263
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DOPLIST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:APPENDF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NCONCF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNIONF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NUNIONF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REVERSEF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NREVERSEF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVE-FROM-PLISTF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETE-FROM-PLISTF in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/types.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/types-tmpX4BRKI0R.fasl
; compilation finished in 0:00:00.169
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:COERCEF in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/io.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/io-tmpQ371UGST.fasl
; compilation finished in 0:00:00.226
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::WITH-OPEN-FILE* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-INPUT-FROM-FILE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-OUTPUT-TO-FILE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/hash-tables.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/hash-tables-tmp2OWI3Q7U.fasl
; compilation finished in 0:00:00.107
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-GETHASH in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/control-flow.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/control-flow-tmp9KKTJMYV.fasl
; compilation finished in 0:00:00.123
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:SWITCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ESWITCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:CSWITCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHICHEVER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:XOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NTH-VALUE-OR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MULTIPLE-VALUE-PROG2 in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/arrays.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/arrays-tmpJU0JWO19.fasl
; compilation finished in 0:00:00.036
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/sequences.lisp" (written 22 JUL 2021 06:09:17 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/sequences.lisp
; in: DEFUN LENGTH=
; (LENGTH FIRST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/sequences-tmpZX2WN8N4.fasl
; compilation finished in 0:00:00.336
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVEF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETEF in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/numbers.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/numbers-tmpOU81XRV0.fasl
; compilation finished in 0:00:00.444
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MAXF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MINF in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/features.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-1/features-tmpY2ML9CFA.fasl
; compilation finished in 0:00:00.020
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/package.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/package-tmpX2JYJDQE.fasl
; compilation finished in 0:00:00.025
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/arrays.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/arrays-tmpOPCILR65.fasl
; compilation finished in 0:00:00.035
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/control-flow.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/control-flow-tmpRV9F8A9A.fasl
; compilation finished in 0:00:00.016
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-FIRST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-LAST in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/sequences.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/sequences-tmpK2ZAJT4I.fasl
; compilation finished in 0:00:00.008
; compiling file "/tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/lists.lisp" (written 22 JUL 2021 06:09:17 AM):
; wrote /tmp/wm/stumpwm/work/alexandria-v1.4/alexandria-2/lists-tmpUX5S4ADN.fasl
; compilation finished in 0:00:00.017
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/packages.lisp" (written 27 APR 2024 01:06:11 AM):
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/packages-tmp10401X32.fasl
; compilation finished in 0:00:00.006
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/specials.lisp" (written 27 APR 2024 01:06:11 AM):
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/specials-tmpZ7CBRM0G.fasl
; compilation finished in 0:00:00.029
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/util.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a STRING, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/util.lisp
; in: DEFUN STRING-LIST-TO-SIMPLE-STRING
; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a STRING, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; 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 /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/util-tmp9OZEQ0G2.fasl
; compilation finished in 0:00:00.162
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::DEFCONSTANT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-UNIQUE-NAMES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-REBINDING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/errors.lisp" (written 27 APR 2024 01:06:11 AM):
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/errors-tmpB2JTL1W9.fasl
; compilation finished in 0:00:00.041
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-INVOCATION-ERROR in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/charset.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-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: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/charset.lisp
; in: DEFUN MIX
; (+ CL-PPCRE::CODE CL-PPCRE::HASH)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
etc.
; (LOGAND MOST-POSITIVE-FIXNUM (+ CL-PPCRE::CODE CL-PPCRE::HASH))
;
; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN COMPUTE-INDEX
; (LENGTH VECTOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR FLOAT
(RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM.
The result is a (VALUES
(OR FLOAT (RATIONAL (-17592186044413) (17592186044415)))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR FLOAT
(RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM.
The result is a (VALUES
(OR FLOAT (RATIONAL (-17592186044413) (17592186044415)))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR FLOAT
; (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM.
; The result is a (VALUES
; (OR FLOAT (RATIONAL (-17592186044413) (17592186044415)))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR FLOAT
; (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM.
; The result is a (VALUES
; (OR FLOAT (RATIONAL (-17592186044413) (17592186044415)))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 %ADD-TO-CHARSET/EXPAND
; (>= CL-PPCRE::NEW-SIZE 371370)
;
; note: forced to do <-INTEGER-FIXNUM (cost 8)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline ASH (cost 3) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (* 2 CL-PPCRE::NEW-SIZE)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-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 CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a DOUBLE-FLOAT.
; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/charset-tmpP3BI68WQ.fasl
; compilation finished in 0:00:00.365
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/charmap.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (< CL-PPCRE::CODE #:LIM31)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-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 CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a DOUBLE-FLOAT.
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-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.
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (< CL-PPCRE::CODE #:LIM31)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/charmap-tmpQDARA81Z.fasl
; compilation finished in 0:00:00.455
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/chartest.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/chartest.lisp
; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-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 CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a DOUBLE-FLOAT.
; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a (UNSIGNED-BYTE 62).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 62).
SIMPLE-COMPILER-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 division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a (UNSIGNED-BYTE 62).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 62).
SIMPLE-COMPILER-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 division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-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::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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/chartest-tmpYEMMM7SE.fasl
; compilation finished in 0:00:00.945
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/lexer.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; in: DEFUN GET-NUMBER
; (+ (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) (THE FIXNUM CL-PPCRE::MAX-LENGTH))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 64) arithmetic
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X." NUMBER)
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; 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 /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/lexer-tmp73HU0RPK.fasl
; compilation finished in 0:00:01.022
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/parser.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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
SIMPLE-COMPILER-NOTE: unable to
optimize
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN SEQ
; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR))
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/parser-tmpIO5N7K88.fasl
; compilation finished in 0:00:00.148
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/regex-class.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (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 /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/regex-class-tmpCM21U60Z.fasl
; compilation finished in 0:00:00.263
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/regex-class-util.lisp
; in: DEFMETHOD CASE-MODE (STR T)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a 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.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD EVERYTHINGP (REPETITION)
; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1
1)), not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1
1)), not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1 1)), not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1 1)), not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
etc.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The second argument is a (NOT NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; in: DEFMETHOD REGEX-LENGTH (SEQ)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
; CL-PPCRE::SEQ)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH
; CL-PPCRE::SUB-REGEX)
; IF (NOT CL-PPCRE::LEN)
; DO ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:SUM6 CL-PPCRE::LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD REGEX-LENGTH (ALTERNATION)
; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT).
etc.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15)
unable to do inline float comparison (cost 4) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 4) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
; in: DEFMETHOD REGEX-LENGTH (BRANCH)
; (EQL CL-PPCRE::THEN-LENGTH
; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
;
; note: forced to do IF-EQL (cost 15)
; unable to do inline float comparison (cost 4) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 4) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15)
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
; in: DEFMETHOD REGEX-LENGTH (REPETITION)
; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: forced to do IF-EQL (cost 15)
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
The first argument is a T, not a (UNSIGNED-BYTE 64).
The second argument is a T, not a (UNSIGNED-BYTE 64).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 64)
&OPTIONAL).
etc.
; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a T, not a (UNSIGNED-BYTE 64).
; The second argument is a T, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
; CL-PPCRE::SEQ)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
; CL-PPCRE::SUB-REGEX)
; CL-PPCRE::SUM CL-PPCRE::LEN)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:SUM6 CL-PPCRE::LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES
; CL-PPCRE::ALTERNATION)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
; CL-PPCRE::SUB-REGEX)
; CL-PPCRE::MINIMIZE CL-PPCRE::LEN)
; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF
; ==>
; (< #:MINMAXTMP10 #:MINMAX9)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH)
; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH))
; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
The first argument is a T, not a (UNSIGNED-BYTE 64).
The second argument is a T, not a (UNSIGNED-BYTE 64).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 64)
&OPTIONAL).
etc.
; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION)
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a T, not a (UNSIGNED-BYTE 64).
; The second argument is a T, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T)
; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT).
etc.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15)
unable to do inline float comparison (cost 4) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 4) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T)
; (EQL CL-PPCRE::THEN-OFFSET
; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::START-POS))
;
; note: forced to do IF-EQL (cost 15)
; unable to do inline float comparison (cost 4) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 4) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
The first argument is a T, not a (UNSIGNED-BYTE 64).
The second argument is a T, not a (UNSIGNED-BYTE 64).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 64)
&OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T)
; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a T, not a (UNSIGNED-BYTE 64).
; The second argument is a T, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 (CHAR-CLASS T)
; (1+ CL-PPCRE::START-POS)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T)
; (1+ CL-PPCRE::START-POS)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-OFFSETS (STR T)
; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 COMPUTE-OFFSETS (FILTER T)
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/regex-class-util-tmp9DT7SEFG.fasl
; compilation finished in 0:00:02.110
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/convert.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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 (CHAR-UPCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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 (CHAR-DOWNCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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 (CHAR-UPCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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 CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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-DOWN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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-DOWN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN MAYBE-SPLIT-REPETITION
; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
The second argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
; in: DEFUN MAYBE-ACCUMULATE
; (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; ==>
; (REPLACE #:SEQUENCE #:NEW2 :START1 #:START :END1 NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; The second argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR
SIMPLE-BASE-STRING
NULL).
The second argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
CHARACTER
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; The second argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
CHARACTER
(*))).
The second argument is a SEQUENCE, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 64) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 64) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T)
; (ZEROP LENGTH)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a SIMPLE-BASE-STRING.
The second argument is a (OR STRING
(AND SYMBOL (NOT NULL))
CHARACTER), not a SIMPLE-BASE-STRING.
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T)
; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR STRING (AND SYMBOL (NOT NULL))
; CHARACTER), not a SIMPLE-BASE-STRING.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a (SIMPLE-ARRAY
CHARACTER
(*)).
The second argument is a (OR STRING
(AND SYMBOL (NOT NULL))
CHARACTER), not a (SIMPLE-ARRAY
CHARACTER
(*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
; CHARACTER (*)).
; The second argument is a (OR STRING (AND SYMBOL (NOT NULL))
; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (COPY-SEQ CL-PPCRE::BACKREF-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
The first argument is a T, not a (UNSIGNED-BYTE 64).
The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 64)
&OPTIONAL).
etc.
; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a T, not a (UNSIGNED-BYTE 64).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; in: DEFUN CONVERT
; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/convert-tmp8065ESJT.fasl
; compilation finished in 0:00:06.909
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CASE-INSENSITIVE-MODE-P in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MULTI-LINE-MODE-P in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SINGLE-LINE-MODE-P in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/optimize.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a VECTOR, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/optimize.lisp
; in: DEFMETHOD GATHER-STRINGS (SEQ)
; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR
; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a VECTOR, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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.
;
; 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.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD START-ANCHORED-P (REGEX)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD END-STRING-AUX (SEQ)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a VECTOR.
; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS
; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START))
; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T)
; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES
; CL-PPCRE::ALTERNATION)
; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE
; CL-PPCRE::CURRENT-MIN-REST))
; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF
; ==>
; (< #:MINMAXTMP11 #:MINMAX10)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T)
; (MIN
; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::CURRENT-MIN-REST)
; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::CURRENT-MIN-REST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-MIN-REST (STR T)
; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T)
; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
The first argument is a T, not a (UNSIGNED-BYTE 64).
The second argument is a T, not a (UNSIGNED-BYTE 64).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 64)
&OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T)
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a T, not a (UNSIGNED-BYTE 64).
; The second argument is a T, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (+ CL-PPCRE::CURRENT-MIN-REST
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T)
; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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-MIN-REST (REGEX T)
; (1+ CL-PPCRE::CURRENT-MIN-REST)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/optimize-tmp7S8Z6FGF.fasl
; compilation finished in 0:00:05.591
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/closures.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-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: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; 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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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 (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
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR VECTOR
SB-KERNEL:EXTENDED-SEQUENCE
CONS), not a VECTOR.
; (LENGTH CL-PPCRE::END-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE
; CONS), not a VECTOR.
SIMPLE-COMPILER-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::END-STRING CL-PPCRE::START-POS
; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; (+ 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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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 (BACK-REFERENCE T)
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS
; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
FN is not known to be a function
; 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
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
NEXT-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 /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/closures-tmpSIT3QPKP.fasl
; compilation finished in 0:00:06.315
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-CHAR-CLASS-TESTER in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; 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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= 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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::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).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-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).
; --> 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do -/SIGNED=>INTEGER (cost 7)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
; The result is a (VALUES
; (INTEGER -13835058055282163710 13835058055282163711)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
The second argument is a (INTEGER -13835058055282163709
13835058055282163712), not a FIXNUM.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM.
; The second argument is a (INTEGER -13835058055282163709
; 13835058055282163712), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM.
The result is a (VALUES
(INTEGER -13835058055282163710 13835058055282163711)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; --> LAMBDA FUNCTION LET 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).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 64) arithmetic
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 64) arithmetic
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: unable to
optimize
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)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; 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
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T)
; (ZEROP CL-PPCRE::MAXIMUM)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::MIN-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::MIN-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15)
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: forced to do IF-EQL (cost 15)
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15)
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do IF-EQL (cost 15)
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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 /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/repetition-closures-tmpE0PA0714.fasl
; compilation finished in 0:00:04.410
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INCF-AFTER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/scanner.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-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: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF
; --> AND IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH CL-PPCRE::PATTERN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (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.
SIMPLE-COMPILER-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-CHAR-SEARCHER
; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ AND IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-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)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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)
; (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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::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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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))
; (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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::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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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 (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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, 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 SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-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) 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.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; 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.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 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.
SIMPLE-COMPILER-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 INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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 /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/scanner-tmpJRWHHVG0.fasl
; compilation finished in 0:00:16.608
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::BMH-MATCHER-AUX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CHAR-SEARCHER-AUX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-ADVANCE-FN in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/cl-ppcre-2.1.2/api.lisp" (written 27 APR 2024 01:06:11 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/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.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; in: DEFMETHOD CREATE-SCANNER (T)
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-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::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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN COUNT-MATCHES
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START
; :END CL-PPCRE::END)
; (INCF COUNT))
; --> 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF
; --> THE COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::S CL-PPCRE::E)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-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 COUNT)
; ==>
; (+ 1 COUNT)
;
; 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START
; :END CL-PPCRE::END)
; (INCF COUNT))
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::S CL-PPCRE::E)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-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.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF
; --> THE COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-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.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= #:MATCH-START2 #:MATCH-END3)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-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.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE
; --> COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::LIMIT)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...)
; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY
; --> SB-LOOP::LOOP-DESETQ SETQ AREF
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN
; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-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)
; ==>
; (+ 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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
etc.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN
; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-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.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-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.
; (> 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; in: DEFUN STRING-CASE-MODIFIER
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::TO)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
expand inline
because:
upgraded array element type 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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 4) because:
The second argument is a (NOT NULL), not a FIXNUM.
; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (NOT NULL), not a FIXNUM.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR NULL INTEGER), not a FIXNUM.
The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR NULL INTEGER), not a FIXNUM.
The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
etc.
; (1-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START
; :JUNK-ALLOWED T))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR NULL INTEGER), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR NULL INTEGER), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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.
; (< 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
; in: DEFUN BUILD-REPLACEMENT
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
can't determine sequence argument type
; (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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TOKEN is not known to be a function
; (APPLY CL-PPCRE::TOKEN
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TOKEN is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
because:
can't determine sequence argument type
; (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
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TOKEN is not known to be a function
; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START
; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TOKEN is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
; (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.
SIMPLE-COMPILER-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::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.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10)
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE
; --> COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10)
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
etc.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do GENERIC-= (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a (COMPLEX SINGLE-FLOAT).
; etc.
SIMPLE-COMPILER-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.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; wrote /tmp/wm/stumpwm/work/cl-ppcre-2.1.2/api-tmp4WZVROCX.fasl
; compilation finished in 0:00:03.445
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:REGISTER-GROUPS-BIND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-SCANS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES-AS-STRINGS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-REGISTER-GROUPS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::REGEX-APROPOS-AUX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DEFINE-PARSE-TREE-SYNONYM in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/package.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/package-tmpA0I3UKX8.fasl
; compilation finished in 0:00:00.575
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/depdefs.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/depdefs-tmp267Y2N80.fasl
; compilation finished in 0:00:00.666
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-CONSTANT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFCONSTANT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-VECTOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHIN-DEFINITION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-MAP-TEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ATOM-CACHE-MAP-TEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM->CHARACTER-MAP-TEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX+ in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGAND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGIOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX- in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1+ in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1- in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-INCF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-DECF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MIN in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MAX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-FLOOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-CEILING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-TRUNCATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MOD in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ASH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-PLUSP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ZEROP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-EVENP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ODDP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX> in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX= in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX< in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX>= in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX<= in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-CLX-CLASS in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/clx.lisp" (written 13 MAY 2024 07:28:08 AM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /tmp/wm/stumpwm/work/clx-0.7.6/clx.lisp
; in: DEFUN ENCODE-EVENT-MASK
; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-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
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN ENCODE-MODIFIER-MASK
; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-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
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-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 /tmp/wm/stumpwm/work/clx-0.7.6/clx-tmpOUPE5FSJ.fasl
; compilation finished in 0:00:01.792
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/dependent.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0 1.0)
(RATIONAL 0
1)), not a SINGLE-FLOAT.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/dependent.lisp
; in: DEFUN RGB-VAL->CARD16
; (ROUND (THE XLIB:RGB-VAL XLIB::VALUE) 1.5259022e-5)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0 1.0)
; (RATIONAL 0 1)), not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0 1.0)
(RATIONAL 0
1)), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0 1.0)
; (RATIONAL 0 1)), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR
(SINGLE-FLOAT -6.2831855
6.2831855)
(DOUBLE-FLOAT
-6.283185307179586d0
6.283185307179586d0)
(RATIONAL
-884279719003555/140737488355328
884279719003555/140737488355328)), not a SINGLE-FLOAT.
; in: DEFUN RADIANS->INT16
; (ROUND (THE XLIB:ANGLE XLIB::VALUE) 2.727077e-4)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -6.2831855 6.2831855)
; (DOUBLE-FLOAT -6.283185307179586d0
; 6.283185307179586d0)
; (RATIONAL -884279719003555/140737488355328
; 884279719003555/140737488355328)), not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR
(SINGLE-FLOAT -6.2831855
6.2831855)
(DOUBLE-FLOAT
-6.283185307179586d0
6.283185307179586d0)
(RATIONAL
-884279719003555/140737488355328
884279719003555/140737488355328)), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -6.2831855 6.2831855)
; (DOUBLE-FLOAT -6.283185307179586d0
; 6.283185307179586d0)
; (RATIONAL -884279719003555/140737488355328
; 884279719003555/140737488355328)), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code INTEGER to RATIO comparison
due to type uncertainty:
The first argument is a RATIONAL, not a INTEGER.
; (DEFUN XLIB::RADIANS->INT16 (XLIB::VALUE)
; (DECLARE (TYPE XLIB:ANGLE XLIB::VALUE))
; (DECLARE (XLIB::CLX-VALUES XLIB:INT16))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE XLIB:INT16 (VALUES (ROUND (THE XLIB:ANGLE XLIB::VALUE) 2.727077e-4))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; open-code INTEGER to RATIO comparison
; due to type uncertainty:
; The first argument is a RATIONAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
open-code INTEGER to RATIO comparison
due to type uncertainty:
The first argument is a (RATIONAL
-884279719003555/140737488355328), not a INTEGER.
;
; note: unable to
; open-code INTEGER to RATIO comparison
; due to type uncertainty:
; The first argument is a (RATIONAL
; -884279719003555/140737488355328), not a INTEGER.
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO READ-IMAGE-LOAD-BYTE
; (SETQ POSITION (- 7 POSITION))
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES
; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES))
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE
; (- XLIB::INTEGER-SIZE 8 POSITION)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES
; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES))
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a ARRAY.
; in: DEFUN COPY-BIT-RECT
; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART)
; (XLIB::SEND))
; (DECLARE (IGNORE XLIB::SEND))
; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART)
; (XLIB::DEND))
; (DECLARE (IGNORE XLIB::DEND))
; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART)))
; (DO ((XLIB::SRC-IDX # #)
; (XLIB::DEST-IDX # #)
; (COUNT XLIB::HEIGHT #))
; ((ZEROP COUNT))
; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT))
; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA
; XLIB::DEST-IDX XLIB::WIDTH))))
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF NOT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a ARRAY.
SIMPLE-COMPILER-NOTE: unable to
inline non-SIMPLE-vector-handling logic
due to type uncertainty:
The first argument is a (AND ARRAY
(NOT
(SIMPLE-ARRAY *
(*)))), not a (OR VECTOR
SIMPLE-ARRAY).
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE
; ==>
; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2)
;
; note: unable to
; inline non-SIMPLE-vector-handling logic
; due to type uncertainty:
; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR
; VECTOR
; SIMPLE-ARRAY).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a ARRAY.
; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART)
; (XLIB::DEND))
; (DECLARE (IGNORE XLIB::DEND))
; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART)))
; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #)
; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH))
; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #)
; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH))
; (COUNT XLIB::HEIGHT (1- COUNT)))
; ((ZEROP COUNT))
; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT))
; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA
; XLIB::DEST-IDX XLIB::WIDTH)))
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF NOT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a ARRAY.
SIMPLE-COMPILER-NOTE: unable to
inline non-SIMPLE-vector-handling logic
due to type uncertainty:
The first argument is a (AND ARRAY
(NOT
(SIMPLE-ARRAY *
(*)))), not a (OR VECTOR
SIMPLE-ARRAY).
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE
; ==>
; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7)
;
; note: unable to
; inline non-SIMPLE-vector-handling logic
; due to type uncertainty:
; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR
; VECTOR
; SIMPLE-ARRAY).
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-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
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-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
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/dependent-tmpIGHCU6ZA.fasl
; compilation finished in 0:00:00.761
REDEFINITION-WITH-DEFMACRO: redefining XLIB::HOLDING-LOCK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-ABORTS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-INTERRUPTS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CONDITIONAL-STORE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-OUTPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-INPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GCONTEXT-BINDINGS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE? in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::USE-CLOSURES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-UNDERLYING-SIMPLE-VECTOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-LOAD-BYTE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-ASSEMBLE-BYTES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-LOAD-BYTE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-ASSEMBLE-BYTES in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/common.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0)
(RATIONAL
0)), not a SINGLE-FLOAT.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/common.lisp
; in: DEFUN BUFFER-READ-DEFAULT
; (ZEROP XLIB::TIMEOUT)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0) (RATIONAL 0)), not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0)
(RATIONAL
0)), not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0) (RATIONAL 0)), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10)
unable to do inline fixnum comparison (cost 3) because:
The first argument is a RATIONAL, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a RATIONAL, not a FIXNUM.
etc.
; (DEFUN XLIB::BUFFER-READ-DEFAULT
; (XLIB:DISPLAY VECTOR XLIB::START XLIB::END XLIB::TIMEOUT)
; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY)
; (TYPE XLIB::BUFFER-BYTES VECTOR)
; (TYPE XLIB:ARRAY-INDEX XLIB::START XLIB::END)
; (TYPE (OR NULL (REAL 0 *)) XLIB::TIMEOUT))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (IF (AND (NOT (NULL XLIB::TIMEOUT)) (ZEROP XLIB::TIMEOUT) (NOT (LISTEN #)))
; :TIMEOUT
; (LET ((XLIB::N #))
; (COND (# NIL) (# :END-OF-FILE) (T :TRUNCATED)))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a RATIONAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a RATIONAL, not a FIXNUM.
; etc.
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/common-tmpBO0TUGLK.fasl
; compilation finished in 0:00:00.091
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/macros.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/macros-tmpIIXPIQNW.fasl
; compilation finished in 0:00:01.209
REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE-CHECK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::REQUIRED-ARG in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-ACCESSOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHAR-INFO-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHECK-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-INTERNAL in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-AND-REPLY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPARE-REQUEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PUT-ITEMS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DECODE-TYPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ENCODE-TYPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-DECODE-TYPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-PUSH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-POP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-NCONC in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-PUSH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-POP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ENQUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DEQUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-REQUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DOLIST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DELETE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-LENGTH in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/bufmac.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/bufmac-tmpOHM494YR.fasl
; compilation finished in 0:00:00.153
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD29 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CHAR2B in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-BUFFER-OFFSET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ADVANCE-BUFFER-OFFSET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-OUTPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITING-BUFFER-CHUNKS in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/buffer.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/buffer.lisp
; in: DEFUN READ-VECTOR-CARD8
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN READ-VECTOR-CARD16
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN READ-VECTOR-CARD32
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CARD8
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CARD16
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-INT16
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CARD32
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CHAR2B
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/buffer-tmpOVFB07XF.fasl
; compilation finished in 0:00:02.434
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD29 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-CODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READING-EVENT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-INPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-FLUSH-INHIBITED in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-READERS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-READER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-WRITERS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-WRITER in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/display.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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 /tmp/wm/stumpwm/work/clx-0.7.6/display-tmpG6VFGMYP.fasl
; compilation finished in 0:00:00.552
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-DISPLAY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ALLOCATE-RESOURCE-ID in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEALLOCATE-RESOURCE-ID in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-EVENT-QUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-EVENT-QUEUE-INTERNAL in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/gcontext.lisp" (written 13 MAY 2024 07:28:08 AM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /tmp/wm/stumpwm/work/clx-0.7.6/gcontext.lisp
; in: DEFUN SET-GCONTEXT-DASHES
; (VECTOR)
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR VECTOR
SB-KERNEL:EXTENDED-SEQUENCE
CONS), not a VECTOR.
; (LENGTH XLIB::LOCAL-DASH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE
; CONS), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR VECTOR
SB-KERNEL:EXTENDED-SEQUENCE
CONS), 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 VECTOR SB-KERNEL:EXTENDED-SEQUENCE
; CONS), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (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
SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15)
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 4) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
; (EQL (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 SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 4) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-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-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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (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
SIMPLE-COMPILER-NOTE: forced to do GENERIC-NEGATE (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 float arithmetic (cost 1) because:
The first argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (- 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 T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 3) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline ASH (cost 4) because:
The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
The second argument is a NUMBER, not a (UNSIGNED-BYTE 62).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
(UNSIGNED-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 first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline ASH (cost 4) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 62).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE
; (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
SIMPLE-COMPILER-NOTE: forced to do GENERIC-NEGATE (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 float arithmetic (cost 1) because:
The first argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (- 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 T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 3) because:
The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
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 NUMBER, not a (UNSIGNED-BYTE 62).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
(UNSIGNED-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 NUMBER, not a (UNSIGNED-BYTE 64).
; 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 NUMBER, not a (UNSIGNED-BYTE 62).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 64)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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).
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR LIST
VECTOR).
; (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 /tmp/wm/stumpwm/work/clx-0.7.6/gcontext-tmp4QIPRMOF.fasl
; compilation finished in 0:00:02.418
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FUNCTION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-PLANE-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FOREGROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-BACKGROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-WIDTH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CAP-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-JOIN-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-RULE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TILE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-STIPPLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-X in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-Y in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-SUBWINDOW-MODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-EXPOSURES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-X in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-Y in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH-OFFSET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASHES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-ARC-MODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT-OBJ in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TIMESTAMP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-STATE-NEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::XGCMASK->GCMASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ACCESS-GCONTEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MODIFY-GCONTEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-GC-ACCESSOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INCF-INTERNAL-TIMESTAMP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-GCONTEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-GCONTEXT-ACCESSOR in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/input.lisp" (written 13 MAY 2024 07:28:08 AM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /tmp/wm/stumpwm/work/clx-0.7.6/input.lisp
; in: DEFUN READ-INPUT
; (CONS NIL NIL)
;
; note: deleting unreachable code
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: unable to
optimize
because:
Upgraded element type of array is not known at compile time.
; in: DECLARE-EVENT :CLIENT-MESSAGE
; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE
; (XLIB::DATA FORMAT)
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (KEYWORD TYPE)
; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET*
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
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
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE
; --> ECASE COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
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
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE
; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
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
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE
; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-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 /tmp/wm/stumpwm/work/clx-0.7.6/input-tmpGW0QV22K.fasl
; compilation finished in 0:00:03.088
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-EXTENSION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:EXTENSION-OPCODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-EVENT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DECLARE-EVENT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-LOOP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-CASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-COND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-DISPATCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BINDING-EVENT-VALUES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-ERROR in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/requests.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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
SIMPLE-COMPILER-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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; (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
; ==>
; (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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
SB-KERNEL:EXTENDED-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
*
(*)).
; (ELT SEQUENCE XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; * (*)).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 65535)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; in: DEFUN POINTER-CONTROL
; (/ (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 65535) &OPTIONAL), not a (VALUES INTEGER
; &REST T).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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
*
(*)).
; in: DEFUN ACCESS-HOSTS
; (ELT SEQUENCE XLIB::I)
;
; 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
; * (*)).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; 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 /tmp/wm/stumpwm/work/clx-0.7.6/requests-tmp2K9J0HSR.fasl
; compilation finished in 0:00:04.612
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-SERVER-GRABBED in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/fonts.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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
SIMPLE-COMPILER-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
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a (UNSIGNED-BYTE 62).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 62).
SIMPLE-COMPILER-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 division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; (ELT XLIB::PATHS XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-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 LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a (OR
STRING
SYMBOL).
; (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 (OR STRING
; SYMBOL).
SIMPLE-COMPILER-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 SYMBOL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/fonts-tmpP44I4E0Y.fasl
; compilation finished in 0:00:00.639
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/graphics.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN DRAW-ARCS-VECTOR
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0))
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1))
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2))
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3))
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4))
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5))
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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 /tmp/wm/stumpwm/work/clx-0.7.6/graphics-tmp63LQ7EX6.fasl
; compilation finished in 0:00:00.895
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/text.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
etc.
; in: DEFUN DRAW-GLYPH
; (LDB (BYTE 8 0) ELT)
;
; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
etc.
; in: DEFUN DRAW-IMAGE-GLYPH
; (LDB (BYTE 8 0) ELT)
;
; note: forced to do LOGAND-WORD-MASK/INTEGER-UNSIGNED-C (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
; in: DEFUN CHANGE-KEYBOARD-MAPPING
; (AREF XLIB::KEYSYMS XLIB::I XLIB::J)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
; in: DEFUN KEYBOARD-MAPPING
; (AREF XLIB::RESULT XLIB::I XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10)
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR NUMBER NULL), 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 NUMBER NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (1+ XLIB::I)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR NUMBER NULL), 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 NUMBER NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/text-tmp86F1A8FB.fasl
; compilation finished in 0:00:01.319
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/attributes.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/attributes-tmpH7D4HL98.fasl
; compilation finished in 0:00:00.839
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTE-CHANGES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY-CHANGES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-EQUAL-FUNCTION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-EQUAL-FUNCTION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-STATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-ATTRIBUTES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GEOMETRY in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/translate.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/translate-tmpCDM7YXYI.fasl
; compilation finished in 0:00:00.324
REDEFINITION-WITH-DEFMACRO: redefining XLIB:KEYSYM in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-OBJECT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-TRANSLATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-LOWERCASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MODIFIERS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MASK in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/keysyms.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/keysyms-tmpLM57P5P.fasl
; compilation finished in 0:00:00.042
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/manager.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/manager-tmpZE69DN33.fasl
; compilation finished in 0:00:01.844
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/image.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR LIST
VECTOR).
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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).
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/image-tmpG8099TO3.fasl
; compilation finished in 0:00:03.691
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-IMAGE-DATA-BUFFER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-NAME in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-X-HOT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-Y-HOT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-RED-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-BLUE-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-GREEN-MASK in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/resource.lisp" (written 13 MAY 2024 07:28:08 AM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /tmp/wm/stumpwm/work/clx-0.7.6/resource.lisp
; in: DEFUN DELETE-RESOURCE-INTERNAL
; (SETQ XLIB::LOOSE-P NIL)
;
; note: deleting unreachable code
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/resource-tmpTASQCYAW.fasl
; compilation finished in 0:00:00.652
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-WITH-OPEN-FILE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/shape.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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 /tmp/wm/stumpwm/work/clx-0.7.6/extensions/shape-tmp35U57IV6.fasl
; compilation finished in 0:00:00.451
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/big-requests.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/big-requests-tmpTZOONXRW.fasl
; compilation finished in 0:00:00.023
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/xvidmode.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; file: /tmp/wm/stumpwm/work/clx-0.7.6/extensions/xvidmode.lisp
; in: DEFUN XFREE86-VIDMODE-GET-MONITOR
; (/ (LDB (BYTE 16 0) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; (/ (LDB (BYTE 32 16) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; (/ (LDB (BYTE 16 0) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; (/ (LDB (BYTE 32 16) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/xvidmode-tmpWN0UKDSV.fasl
; compilation finished in 0:00:01.424
REDEFINITION-WITH-DEFMACRO: redefining XLIB::VIDMODE-OPCODE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/xrender.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/xrender-tmpBF3HHBTQ.fasl
; compilation finished in 0:00:03.378
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::%RENDER-COMPOSITE-GLYPHS in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/glx.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /tmp/wm/stumpwm/work/clx-0.7.6/extensions/glx.lisp
; 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
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/glx-tmpGYUNPZCY.fasl
; compilation finished in 0:00:00.801
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/gl.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::COLOR-TABLE-PARAMETER-FV 2054
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32 4)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::COLOR-TABLE-PARAMETER-IV 2055
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS (LIST XLIB:INT32 4)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::CONVOLUTION-PARAMETER-FV 4104
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::CONVOLUTION-PARAMETER-IV 4106
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND FOG-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::FOG-FV 81
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND FOG-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::FOG-IV 83
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-MODEL-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LIGHT-MODEL-FV 91
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-MODEL-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LIGHT-MODEL-IV 93
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LIGHT-FV 87
; (XLIB/GL::LIGHT XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 3)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LIGHT-IV 89
; (XLIB/GL::LIGHT XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 3)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LOAD-MATRIX-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LOAD-MATRIX-D 178
; (XLIB/GL::M (LIST XLIB/GL::FLOAT64 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LOAD-MATRIX-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LOAD-MATRIX-F 177
; (XLIB/GL::M (LIST XLIB/GL::FLOAT32 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MATERIAL-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MATERIAL-FV 97
; (XLIB/GL::FACE XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)
; (# 3)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MATERIAL-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MATERIAL-IV 99
; (XLIB/GL::FACE XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)
; (# 3)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MULT-MATRIX-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::MULT-MATRIX-D 181
; (XLIB/GL::M (LIST XLIB/GL::FLOAT64 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MULT-MATRIX-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::MULT-MATRIX-F 180
; (XLIB/GL::M (LIST XLIB/GL::FLOAT32 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::PRIORITIZE-TEXTURES 4118
; (XLIB/GL::N XLIB:INT32)
; (XLIB/GL::TEXTURES
; (LIST XLIB:CARD32 XLIB/GL::N))
; (XLIB/GL::PRIORITIES
; (LIST XLIB/GL::FLOAT32 XLIB/GL::N)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-ENV-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-ENV-FV 112
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (8704 1)
; (8705 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-ENV-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-ENV-IV 114
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (8704 1)
; (8705 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-GEN-DV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-GEN-DV 116
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT64
; (ECASE XLIB/GL::PNAME
; (# 1)
; (9473 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-GEN-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-GEN-FV 118
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (9473 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-GEN-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-GEN-IV 120
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (9473 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-PARAMETER-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-PARAMETER-FV 106
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-PARAMETER-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-PARAMETER-IV 108
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/gl-tmpD68Q8WCA.fasl
; compilation finished in 0:00:05.852
REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-SEQUENCE-SETTER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-RENDERING-COMMAND in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/dpms.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/dpms-tmp7MK9KM9C.fasl
; compilation finished in 0:00:00.241
REDEFINITION-WITH-DEFMACRO: redefining XLIB/DPMS::DPMS-OPCODE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/xtest.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/xtest-tmpJJ71X849.fasl
; compilation finished in 0:00:00.176
REDEFINITION-WITH-DEFMACRO: redefining XLIB/XTEST::OPCODE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/screensaver.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/screensaver-tmp1VUK6SR2.fasl
; compilation finished in 0:00:00.051
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/randr.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 4294967295)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; file: /tmp/wm/stumpwm/work/clx-0.7.6/extensions/randr.lisp
; in: DEFUN RR-GET-OUTPUT-PROPERTY
; (/ XLIB::BYTES-AFTER XLIB::VALUE-LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 4294967295) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/randr-tmpR2FIHSUG.fasl
; compilation finished in 0:00:01.920
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-MASK-FNS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-PUT in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/xinerama.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/xinerama-tmp8PYELRKX.fasl
; compilation finished in 0:00:00.137
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/dbe.lisp" (written 13 MAY 2024 07:28:08 AM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /tmp/wm/stumpwm/work/clx-0.7.6/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
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/dbe-tmpEHTOKYT0.fasl
; compilation finished in 0:00:00.502
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/xc-misc.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/xc-misc-tmpS6U1VHI9.fasl
; compilation finished in 0:00:00.077
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/dri2.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/dri2-tmpVTFK6ZJW.fasl
; compilation finished in 0:00:00.298
; compiling file "/tmp/wm/stumpwm/work/clx-0.7.6/extensions/composite.lisp" (written 13 MAY 2024 07:28:08 AM):
; wrote /tmp/wm/stumpwm/work/clx-0.7.6/extensions/composite-tmp75WVSJEW.fasl
; compilation finished in 0:00:00.235
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPOSITE-OPCODE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-mixins/src/package.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl
; compilation finished in 0:00:00.011
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-mixins/src/sorting.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-mixins/src/sorting-tmpOBHVA3CD.fasl
; compilation finished in 0:00:00.018
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-mixins/src/dynamic-mixins-tmpJ6ELVFLF.fasl
; compilation finished in 0:00:00.095
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/package.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/package-tmpULDB0RG.fasl
; compilation finished in 0:00:00.007
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/debug.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/debug-tmpUTZ0UUTE.fasl
; compilation finished in 0:00:00.035
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/primitives.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/primitives-tmpOOSRA8PZ.fasl
; compilation finished in 0:00:01.021
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SWM-CLASS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-RESTARTS-MENU in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ADD-HOOK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-HOOK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-ALL-HOOKS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-FRAME-PREFERENCE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-FULLSCREEN-IN-FRAME-RULE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-FOCUS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-DATA-FILE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:MOVE-TO-HEAD in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/wrappers.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/wrappers-tmpDMIL0RVK.fasl
; compilation finished in 0:00:00.122
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/pathnames.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/pathnames-tmp8MR9IMIO.fasl
; compilation finished in 0:00:00.015
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/font-rendering.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/font-rendering-tmpJQDKAVAY.fasl
; compilation finished in 0:00:00.071
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/keysyms.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/keysyms-tmp3I8CEEQY.fasl
; compilation finished in 0:00:00.402
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/keytrans.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/keytrans-tmpA3RHFLWZ.fasl
; compilation finished in 0:00:00.029
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/kmap.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/kmap-tmpYZIB7VXO.fasl
; compilation finished in 0:00:00.238
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/input.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/input-tmpR8PK79V8.fasl
; compilation finished in 0:00:00.625
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/core.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/core-tmpN1ZVB1HZ.fasl
; compilation finished in 0:00:00.028
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/command.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/command-tmpZGRRPISB.fasl
; compilation finished in 0:00:00.493
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-COMMAND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND-ALIAS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-TYPE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/menu-declarations.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/menu-declarations-tmpFNKDE5XP.fasl
; compilation finished in 0:00:00.060
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/menu-definitions.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/menu-definitions-tmpRJTU435C.fasl
; compilation finished in 0:00:00.259
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/screen.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/screen-tmpI9WG87JK.fasl
; compilation finished in 0:00:00.284
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-ANY-COLOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-CURRENT-SCREEN in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/head.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/head-tmpYDE6I9E6.fasl
; compilation finished in 0:00:00.102
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/group.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/group-tmp319UV2V8.fasl
; compilation finished in 0:00:00.274
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/bindings.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/bindings-tmpLYQINFYS.fasl
; compilation finished in 0:00:00.075
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::FILL-KEYMAP in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/events.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/events-tmpGA31XWNO.fasl
; compilation finished in 0:00:00.463
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-STUMP-EVENT-HANDLER in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/window.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/window-tmp5HT23M6C.fasl
; compilation finished in 0:00:00.773
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-WINDOW-SLOT in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/floating-group.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/floating-group-tmpA60KLDKY.fasl
; compilation finished in 0:00:00.370
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/tile-window.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/tile-window-tmpD801X3GJ.fasl
; compilation finished in 0:00:00.313
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/tile-group.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/tile-group-tmpGOW1GC70.fasl
; compilation finished in 0:00:00.913
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:SAVE-FRAME-EXCURSION in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/window-placement.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/window-placement-tmpPQ1X28TL.fasl
; compilation finished in 0:00:00.120
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/message-window.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/message-window-tmpE92ECU7O.fasl
; compilation finished in 0:00:00.206
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SIMPLE-GRAVITY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-MESSAGE-QUEUING in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/selection.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/selection-tmp8S0II570.fasl
; compilation finished in 0:00:00.363
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::MULTISELECT in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/module.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/module-tmpJE88A12F.fasl
; compilation finished in 0:00:00.063
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/ioloop.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/ioloop-tmpA5FNLPLT.fasl
; compilation finished in 0:00:00.313
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/timers.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/timers-tmpHKCV9TP8.fasl
; compilation finished in 0:00:00.112
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/stumpwm.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/stumpwm-tmpZ18MA7XE.fasl
; compilation finished in 0:00:00.251
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-SIGNAL-HANDLER in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/user.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/user-tmp6LQJ9T0C.fasl
; compilation finished in 0:00:00.367
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFPROGRAM-SHORTCUT in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/interactive-keymap.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/interactive-keymap-tmpTX7OA81T.fasl
; compilation finished in 0:00:00.081
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-INTERACTIVE-KEYMAP in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/iresize.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/iresize-tmpWOTC3PB7.fasl
; compilation finished in 0:00:00.063
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/help.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/help-tmpHQE95SAC.fasl
; compilation finished in 0:00:00.444
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/fdump.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/fdump-tmpO87FP9NR.fasl
; compilation finished in 0:00:00.264
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/time.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/time-tmpP6A3E92I.fasl
; compilation finished in 0:00:00.101
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/mode-line.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/mode-line-tmpUSHT8RIL.fasl
; compilation finished in 0:00:00.167
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/mode-line-formatters.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/mode-line-formatters-tmp7YCPD44Y.fasl
; compilation finished in 0:00:00.168
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::ALTERNATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SCROLL in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/color.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/color-tmpQXR7SNXD.fasl
; compilation finished in 0:00:00.260
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/wse.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/wse-tmp6FLI1OC3.fasl
; compilation finished in 0:00:00.086
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ACT-ON-MATCHING-WINDOWS in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-window.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-window-tmpWBK8JTS9.fasl
; compilation finished in 0:00:00.081
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-group.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/dynamic-group-tmpUVEUD2ZN.fasl
; compilation finished in 0:00:01.117
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SWAP in DEFMACRO
REDEFINITION-WITH-DEFMETHOD: redefining PRINT-SWM-OBJECT (#
#) in DEFMETHOD
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-GROUP-HEAD-INFO in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/remap-keys.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/remap-keys-tmpOWNJOEU.fasl
; compilation finished in 0:00:00.039
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/manual.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/manual-tmpVT5BMTA5.fasl
; compilation finished in 0:00:00.161
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/minor-modes.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/minor-modes-tmpN3CFVWZF.fasl
; compilation finished in 0:00:00.709
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE-SCOPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-DESCENDED-MINOR-MODE-SCOPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE in DEFMACRO
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/replace-class.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/replace-class-tmpNK27C0R1.fasl
; compilation finished in 0:00:00.070
REDEFINITION-WITH-DEFGENERIC: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC
WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC
; compiling file "/tmp/wm/stumpwm/work/stumpwm-24.11/version.lisp" (written 19 OCT 2024 01:57:35 PM):
; wrote /tmp/wm/stumpwm/work/stumpwm-24.11/version-tmp3BPE71HR.fasl
; compilation finished in 0:00:00.010
;
; compilation unit finished
; printed 857 notes
[undoing binding stack and other enclosing state... done]
[performing final GC... done]
[defragmenting immobile space... (inst,code,sym)=1150+26560+26220... done]
[saving current Lisp image into stumpwm:
writing 98304 bytes from the linkage space at 0xfffb00000
writing 1429504 bytes from the fixedobj space at 0x20000000
writing 2752 bytes from the static space at 0x50000000
writing 21397504 bytes from the dynamic space at 0x1100000000
writing 12291728 bytes from the read-only space at 0x10ff440000
writing 16003072 bytes from the text space at 0x1000000000
done]
/usr/pkg/bin/sbcl --non-interactive --eval "(require 'asdf)" --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.6.7, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC
warning: Function dynamic-group-head-layout not found.
warning: Function dynamic-group-head-split-ratio not found.
warning: Symbol exchange-window-with-master not found in package STUMPWM
test "/tmp/wm/stumpwm/work/.tools/bin/makeinfo" = "no" || /tmp/wm/stumpwm/work/.tools/bin/makeinfo --force --no-validate stumpwm.texi