SBCL 2.5.9.105-56015d7ab / ASDF 3.3.5
; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to optimize due to type uncertainty: The second argument is a STRING, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/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. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, 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 T, not a DOUBLE-FLOAT. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM31) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, 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 T, not a DOUBLE-FLOAT. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM31) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN GET-NUMBER ; (+ (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) (THE FIXNUM CL-PPCRE::MAX-LENGTH)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN MAKE-CHAR-FROM-CODE ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS ; "No character for hex-code ~X." NUMBER) ; ; note: deleting unreachable code ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to optimize because: Upgraded element type of array is not known at compile time. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX SINGLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM. ; ; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a FIXNUM. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM. ; ; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a FIXNUM. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM. ; ; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a FIXNUM. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; ==> ; (REPLACE #:SEQUENCE #:NEW2 :START1 #:START :END1 NIL) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))).The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR)) (NOT (SIMPLE-ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to optimize due to type uncertainty: The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM. ; ; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a FIXNUM. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: NEXT-FN is not known to be a function ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to open code due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS Unhandled SB-INT:SIMPLE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=473315 "main thread" RUNNING {1200030003}>: Failed to find the TRUENAME of /home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp: No such file or directory Backtrace for: #<SB-THREAD:THREAD tid=473315 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {12193BFC93}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {12193BFC93}>) 2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR "Failed to find the ~A of ~A" {12193BFC93}>) 3: (ERROR SB-INT:SIMPLE-FILE-ERROR :PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp" :MESSAGE "No such file or directory" :FORMAT-CONTROL "Failed to find the ~A of ~A" :FORMAT-ARGUMENTS (:TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp")) 4: (SB-IMPL::FILE-PERROR #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp" 2 "Failed to find the ~A of ~A" :TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp") 5: (SB-IMPL::QUERY-FILE-SYSTEM #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp" :TRUENAME T) 6: (TRUENAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp") 7: (SB-C::VERIFY-SOURCE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp") 8: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (215)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.9.105-56015d7ab-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api-t... {12193DA88F}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :PROGRESS NIL :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL) 9: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {12193BF2FB}> NIL) 10: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {12193BEE0B}>) 11: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (203)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.9.105-56015d7ab-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/c6e9b082b5f6c56efe5157eaa461b3c6e255e3ec/cl-ppcre-20251102-git/api.f... {12193EA3EF}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL) 12: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-ppcre" "api">) 13: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-ppcre" "api">) 14: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 15: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-ppcre" "api">) [fast-method] 16: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12041DFB73}>) [fast-method] 17: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 18: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12041DFB73}>) [fast-method] 19: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "bknr.datastore"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 20: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "bknr.datastore">) 21: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "bknr.datastore">) [fast-method] 23: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "bknr.datastore") 24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "bknr.datastore") [fast-method] 26: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12041F54EB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 27: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 28: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12041B454B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 29: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "bknr.datastore") [fast-method] 30: (DEPCHECK::COMPUTE-DEPENDENCIES "bknr.datastore" "bknr.datastore") 31: (DEPCHECK::MAGIC "bknr.datastore" "bknr.datastore" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-iYjrcR5s/depcheck-win.txt") 32: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "bknr.datastore" "bknr.datastore" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-iYjrcR5s/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-iYjrcR5s/depcheck-fail.txt")) 33: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 34: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 35: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 36: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; printed 470 notes