cl-protobufs

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

cl-protobufs/tests

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/define-proto.lisp
; in: DEFMACRO DEFINE-EXTEND
;     (CL-PROTOBUFS:FIND-MESSAGE-DESCRIPTOR TYPE)
; --> BLOCK OR LET IF WHEN IF CL-PROTOBUFS:PROTOBUF-ERROR 
; ==>
;   TYPE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/text-format.lisp
; in: DEFUN PRINT-FIELD
;     (CL-PROTOBUFS:FIND-MESSAGE-DESCRIPTOR TYPE)
; --> BLOCK OR LET IF WHEN IF CL-PROTOBUFS:PROTOBUF-ERROR 
; ==>
;   TYPE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/text-format.lisp
; in: DEFUN PARSE-FIELD
;     (CL-PROTOBUFS:FIND-MESSAGE-DESCRIPTOR TYPE)
; --> BLOCK OR LET IF WHEN IF CL-PROTOBUFS:PROTOBUF-ERROR 
; ==>
;   TYPE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: GEN-ZIG-ZAG 64
;     (CL-PROTOBUFS.IMPLEMENTATION::GEN-ZIG-ZAG 64)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOGXOR 
; ==>
;   (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK 
; ==>
;   (LOGXOR (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
;           (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL -63))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 65) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER -1 0), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (SIGNED-BYTE 65) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-DECODE64
;         (CL-PROTOBUFS.IMPLEMENTATION::VAL)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0)))
;       (DECLARE (TYPE (UNSIGNED-BYTE 64) CL-PROTOBUFS.IMPLEMENTATION::VAL))
;       (BLOCK CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-DECODE64
;         (LOGXOR (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL -1)
;                 (- (LOGAND CL-PROTOBUFS.IMPLEMENTATION::VAL 1)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN SERIALIZE-SCALAR
;     (CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-ENCODE64
;      CL-PROTOBUFS.IMPLEMENTATION::VAL)
; --> LOCALLY LOGXOR 
; ==>
;   (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LOCALLY 
; ==>
;   (LOGXOR (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
;           (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL -63))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a FIXNUM.
;       The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER -1 0), not a (UNSIGNED-BYTE 64).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN GET-SCALAR-ENCODER-FUNCTION
;     (CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-ENCODE64
;      CL-PROTOBUFS.IMPLEMENTATION::VAL)
; --> LOCALLY LOGXOR 
; ==>
;   (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LOCALLY 
; ==>
;   (LOGXOR (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
;           (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL -63))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 65) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER -1 0), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (SIGNED-BYTE 65) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN SERIALIZE-PACKED
;     (LENGTH VALUES)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LOOP CL-PROTOBUFS.IMPLEMENTATION::FOR CL-PROTOBUFS.IMPLEMENTATION::X CL-PROTOBUFS.IMPLEMENTATION::ACROSS VALUES
;           CL-PROTOBUFS.IMPLEMENTATION::WHILE CL-PROTOBUFS.IMPLEMENTATION::X
;           DO (CL-PROTOBUFS.IMPLEMENTATION::IINCF CL-PROTOBUFS.IMPLEMENTATION::SUM
;                                                  (FUNCALL
;                                                   CL-PROTOBUFS.IMPLEMENTATION::ENCODER
;                                                   CL-PROTOBUFS.IMPLEMENTATION::X
;                                                   CL-PROTOBUFS.IMPLEMENTATION::BUFFER)))
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (AREF #:LOOP-ACROSS-VECTOR-1 #:LOOP-ACROSS-INDEX-2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN-INLINE FIND-ENUM-NAME
;     (THE KEYWORD
;          (IF CL-PROTOBUFS.IMPLEMENTATION::DESC
;              (CL-PROTOBUFS.IMPLEMENTATION::ENUM-VALUE-DESCRIPTOR-NAME
;               CL-PROTOBUFS.IMPLEMENTATION::DESC)
;              (CL-PROTOBUFS.IMPLEMENTATION::KINTERN "~a-~a" "%UNDEFINED"
;                                                    CL-PROTOBUFS.IMPLEMENTATION::VALUE)))
; 
; note: Type assertion too complex to check:
; KEYWORD.
; It allows an unknown number of values, consider using
; (VALUES KEYWORD &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN %DECODE-REST-OF-UINT
;     (LDB (BYTE CL-PROTOBUFS.IMPLEMENTATION::MAX-BITS 0)
;          CL-PROTOBUFS.IMPLEMENTATION::VALUE)
; 
; note: unable to convert to inline logical operations due to type uncertainty: The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).

;     (ASH CL-PROTOBUFS.IMPLEMENTATION::HIGH-WORD
;          CL-PROTOBUFS.IMPLEMENTATION::FIXNUM-BITS)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER -332306998946228968225951765070086144 332306998946228968153894171032158208) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -332306998946228968225951765070086144 332306998946228968153894171032158208) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

;     (+
;      (ASH CL-PROTOBUFS.IMPLEMENTATION::HIGH-WORD
;           CL-PROTOBUFS.IMPLEMENTATION::FIXNUM-BITS)
;      CL-PROTOBUFS.IMPLEMENTATION::LOW-WORD)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -332306998946228968225951765070086144 332306998946228968153894171032158208), not a FIXNUM.
;       The result is a (VALUES (INTEGER -332306998946228972837637783497474048 332306998946228972765580189459546111) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a (INTEGER -332306998946228968225951765070086144 332306998946228968153894171032158208), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -332306998946228972837637783497474048 332306998946228972765580189459546111) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: GENERATE-INTEGER-DECODERS 32
;     (CL-PROTOBUFS.IMPLEMENTATION::GENERATE-INTEGER-DECODERS 32)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G0) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: GENERATE-INTEGER-DECODERS 64
;     (CL-PROTOBUFS.IMPLEMENTATION::GENERATE-INTEGER-DECODERS 64)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT64
;         (CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-BASE-STRING
;          226) Decodes the next 64-bit varint integer in the buffer at the given index.
;     Returns both the decoded value and the new index into the buffer.
;     Watch out, this function turns off all type checking ... {1017C88C7F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0)))
;       (BLOCK CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT64
;         (MULTIPLE-VALUE-BIND
;             (CL-PROTOBUFS.IMPLEMENTATION::VAL
;              CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX)
;             (CL-PROTOBUFS.IMPLEMENTATION::DECODE-VARINT
;              CL-PROTOBUFS.IMPLEMENTATION::BUFFER
;              CL-PROTOBUFS.IMPLEMENTATION::INDEX)
;           NIL
;           (VALUES CL-PROTOBUFS.IMPLEMENTATION::VAL
;                   CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX))))
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to "<return value>"

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> CL-PROTOBUFS.IMPLEMENTATION::DECODE-VARINT BLOCK LET LET DOTIMES DO BLOCK 
; --> LET TAGBODY TAGBODY LET SETF 
; ==>
;   (SETQ CL-PROTOBUFS.IMPLEMENTATION::WORD
;           (LOGIOR (LOGAND (ASH # #) MOST-POSITIVE-WORD)
;                   CL-PROTOBUFS.IMPLEMENTATION::WORD))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET LOOP BLOCK LET LET TAGBODY SETQ THE LOGIOR 
; ==>
;   (ASH BYTE CL-PROTOBUFS.IMPLEMENTATION::PLACES)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET LOOP BLOCK LET LET TAGBODY SETQ THE 
; ==>
;   (LOGIOR CL-PROTOBUFS.IMPLEMENTATION::VAL
;           (ASH BYTE CL-PROTOBUFS.IMPLEMENTATION::PLACES))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET LOOP BLOCK LET LET TAGBODY SETQ THE LOGIOR 
; ==>
;   (ASH BYTE CL-PROTOBUFS.IMPLEMENTATION::PLACES)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET LOOP BLOCK LET LET TAGBODY SETQ THE 
; ==>
;   (LOGIOR CL-PROTOBUFS.IMPLEMENTATION::VAL
;           (ASH BYTE CL-PROTOBUFS.IMPLEMENTATION::PLACES))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WHEN IF CL-PROTOBUFS.IMPLEMENTATION::I= = THE 
; ==>
;   (LDB (BYTE 1 63) CL-PROTOBUFS.IMPLEMENTATION::VAL)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN DESERIALIZE-SCALAR
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-INT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to "<return value>"

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT64
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (VALUES CL-PROTOBUFS.IMPLEMENTATION::VAL
;           CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to "<return value>"

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G21) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G92) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

;     (VALUES
;      (CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-DECODE64
;       CL-PROTOBUFS.IMPLEMENTATION::VAL)
;      CL-PROTOBUFS.IMPLEMENTATION::IDX)
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT64
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (VALUES CL-PROTOBUFS.IMPLEMENTATION::VAL
;           CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to "<return value>"

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G87) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-INT64
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> CL-PROTOBUFS.IMPLEMENTATION::DECODE-VARINT BLOCK LET LET DOTIMES DO BLOCK 
; --> LET TAGBODY TAGBODY LET SETF 
; ==>
;   (SETQ CL-PROTOBUFS.IMPLEMENTATION::WORD
;           (LOGIOR (LOGAND (ASH # #) MOST-POSITIVE-WORD)
;                   CL-PROTOBUFS.IMPLEMENTATION::WORD))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN DESERIALIZE-PACKED
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G59) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT64
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::IDX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; ==>
;   (VALUES CL-PROTOBUFS.IMPLEMENTATION::VAL
;           CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::IDX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G20) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G73) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G68) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

;     (VALUES
;      (CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-DECODE64
;       CL-PROTOBUFS.IMPLEMENTATION::VAL)
;      CL-PROTOBUFS.IMPLEMENTATION::NIDX)
; 
; note: doing signed word to integer coercion (cost 20)

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-INT64
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::IDX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> CL-PROTOBUFS.IMPLEMENTATION::DECODE-VARINT BLOCK LET LET DOTIMES DO BLOCK 
; --> LET TAGBODY TAGBODY LET SETF 
; ==>
;   (SETQ CL-PROTOBUFS.IMPLEMENTATION::WORD
;           (LOGIOR (LOGAND (ASH # #) MOST-POSITIVE-WORD)
;                   CL-PROTOBUFS.IMPLEMENTATION::WORD))
; 
; note: doing unsigned word to integer coercion (cost 20) to WORD

;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-INT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::IDX)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN DESERIALIZE-PACKED-ENUM
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G12) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN PACKED-SIZE
;     (CL-PROTOBUFS.IMPLEMENTATION::ZIG-ZAG-ENCODE64
;      CL-PROTOBUFS.IMPLEMENTATION::VAL)
; --> LOCALLY LOGXOR 
; ==>
;   (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 64), not a FIXNUM.
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (SIGNED-BYTE 64), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER -18446744073709551616 18446744073709551614) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LOCALLY 
; ==>
;   (LOGXOR (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL 1)
;           (ASH CL-PROTOBUFS.IMPLEMENTATION::VAL -63))
; 
; note: forced to do full call
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 65) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
;       The first argument is a (INTEGER -18446744073709551616 18446744073709551614), not a (UNSIGNED-BYTE 64).
;       The second argument is a (INTEGER -1 0), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (SIGNED-BYTE 65) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN DECODE-DOUBLE
;     (DEFUN CL-PROTOBUFS.IMPLEMENTATION::DECODE-DOUBLE
;            (CL-PROTOBUFS.IMPLEMENTATION::BUFFER
;             CL-PROTOBUFS.IMPLEMENTATION::INDEX)
;       #<(SIMPLE-ARRAY CHARACTER
;          (215)) Decodes the next double float in the buffer at the given index.
;      Returns both the decoded value and the new index into the buffer.
;      Watch out, this function turns off all type checking and array b... {1019F6518F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0)))
;       (DECLARE
;        (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
;         CL-PROTOBUFS.IMPLEMENTATION::BUFFER)
;        (CL-PROTOBUFS.IMPLEMENTATION::ARRAY-INDEX
;         CL-PROTOBUFS.IMPLEMENTATION::INDEX))
;       (VALUES
;        (SB-SYS:SAP-REF-DOUBLE
;         (SB-SYS:VECTOR-SAP CL-PROTOBUFS.IMPLEMENTATION::BUFFER)
;         CL-PROTOBUFS.IMPLEMENTATION::INDEX)
;        (CL-PROTOBUFS.IMPLEMENTATION::I+ CL-PROTOBUFS.IMPLEMENTATION::INDEX 8)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-PROTOBUFS.IMPLEMENTATION::DECODE-DOUBLE
;         (CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (215)) Decodes the next double float in the buffer at the given index.
;    Returns both the decoded value and the new index into the buffer.
;    Watch out, this function turns off all type checking and array b... {1019F6518F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0)))
;       (DECLARE
;        (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
;         CL-PROTOBUFS.IMPLEMENTATION::BUFFER)
;        (CL-PROTOBUFS.IMPLEMENTATION::ARRAY-INDEX
;         CL-PROTOBUFS.IMPLEMENTATION::INDEX))
;       (BLOCK CL-PROTOBUFS.IMPLEMENTATION::DECODE-DOUBLE
;         (VALUES
;          (SB-SYS:SAP-REF-DOUBLE
;           (SB-SYS:VECTOR-SAP CL-PROTOBUFS.IMPLEMENTATION::BUFFER)
;           CL-PROTOBUFS.IMPLEMENTATION::INDEX)
;          (CL-PROTOBUFS.IMPLEMENTATION::I+ CL-PROTOBUFS.IMPLEMENTATION::INDEX
;                                           8))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN DECODE-STRING
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G7) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN DECODE-OCTETS
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G3) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/wire-format.lisp
; in: DEFUN SKIP-ELEMENT
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G5) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G18) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/serialize.lisp
; in: DEFUN SERIALIZE-TO-BYTES
;     (CL-PROTOBUFS:FIND-MESSAGE-DESCRIPTOR TYPE)
; --> BLOCK OR LET IF WHEN IF CL-PROTOBUFS:PROTOBUF-ERROR 
; ==>
;   TYPE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/serialize.lisp
; in: DEFUN EMIT-REPEATED-FIELD
;     (CL-PROTOBUFS:FIND-MESSAGE-DESCRIPTOR TYPE)
; --> BLOCK OR LET IF WHEN IF CL-PROTOBUFS:PROTOBUF-ERROR 
; ==>
;   TYPE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/serialize.lisp
; in: DEFUN EMIT-NON-REPEATED-FIELD
;     (CL-PROTOBUFS:FIND-MESSAGE-DESCRIPTOR TYPE)
; --> BLOCK OR LET IF WHEN IF CL-PROTOBUFS:PROTOBUF-ERROR 
; ==>
;   TYPE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/serialize.lisp
; in: DEFUN DESERIALIZE-STRUCTURE-OBJECT
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G5) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G30) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G40) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/serialize.lisp
; in: DEFUN DESERIALIZE-STRUCTURE-OBJECT-FIELD
;     (CL-PROTOBUFS.IMPLEMENTATION::DECODE-UINT32
;      CL-PROTOBUFS.IMPLEMENTATION::BUFFER CL-PROTOBUFS.IMPLEMENTATION::INDEX)
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LOCALLY 
; ==>
;   (SB-C::%FUNCALL
;    #'(LAMBDA (&OPTIONAL VAL NEW-INDEX &REST G18) IN DECODE-UINT32)
;    CL-PROTOBUFS.IMPLEMENTATION::VAL CL-PROTOBUFS.IMPLEMENTATION::NEW-INDEX NIL)
; 
; note: doing unsigned word to integer coercion (cost 20) from WORD to VAL

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/message-api.lisp
; in: DEFUN-INLINE HAS-FIELD
;     (CL-PROTOBUFS.IMPLEMENTATION::DEFUN-INLINE CL-PROTOBUFS:HAS-FIELD
;         (CL-PROTOBUFS.IMPLEMENTATION::OBJECT CL-PROTOBUFS.IMPLEMENTATION::FIELD)
;       "Check if OBJECT has FIELD set."
;       (FUNCALL
;        (CL-PROTOBUFS.IMPLEMENTATION::FIELD-ACCESSORS-HAS
;         (GET CL-PROTOBUFS.IMPLEMENTATION::FIELD
;              (TYPE-OF CL-PROTOBUFS.IMPLEMENTATION::OBJECT)))
;        CL-PROTOBUFS.IMPLEMENTATION::OBJECT))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CL-PROTOBUFS:HAS-FIELD) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CL-PROTOBUFS:HAS-FIELD to be INLINE, but 2 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/message-api.lisp
; in: DEFUN-INLINE PROTO-SLOT-VALUE
;     (CL-PROTOBUFS.IMPLEMENTATION::DEFUN-INLINE CL-PROTOBUFS:PROTO-SLOT-VALUE
;         (CL-PROTOBUFS.IMPLEMENTATION::OBJECT CL-PROTOBUFS.IMPLEMENTATION::SLOT)
;       "Get the value of a field in a protobuf object.
;   Parameters:
;     OBJECT: The protobuf object.
;     SLOT: The slot in object to retrieve the value from."
;       (FUNCALL
;        (CL-PROTOBUFS.IMPLEMENTATION::FIELD-ACCESSORS-GET
;         (GET CL-PROTOBUFS.IMPLEMENTATION::SLOT
;              (TYPE-OF CL-PROTOBUFS.IMPLEMENTATION::OBJECT)))
;        CL-PROTOBUFS.IMPLEMENTATION::OBJECT))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CL-PROTOBUFS:PROTO-SLOT-VALUE)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CL-PROTOBUFS:PROTO-SLOT-VALUE to be INLINE, but 5 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/message-api.lisp
; in: DEFUN-INLINE (SETF PROTO-SLOT-VALUE)
;     (CL-PROTOBUFS.IMPLEMENTATION::DEFUN-INLINE (SETF CL-PROTOBUFS:PROTO-SLOT-VALUE)
;         (CL-PROTOBUFS.IMPLEMENTATION::VALUE CL-PROTOBUFS.IMPLEMENTATION::OBJECT
;          CL-PROTOBUFS.IMPLEMENTATION::SLOT)
;       "Set the value of a field in a protobuf object.
;   Parameters:
;     VALUE: The new value for the field.
;     OBJECT: The protobuf object.
;     SLOT: The slot in object to retrieve the value from."
;       (FUNCALL
;        (FDEFINITION
;         (CL-PROTOBUFS.IMPLEMENTATION::FIELD-ACCESSORS-SET
;          (GET CL-PROTOBUFS.IMPLEMENTATION::SLOT #)))
;        CL-PROTOBUFS.IMPLEMENTATION::VALUE CL-PROTOBUFS.IMPLEMENTATION::OBJECT))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE (SETF CL-PROTOBUFS:PROTO-SLOT-VALUE))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming (COMMON-LISP:SETF CL-PROTOBUFS:PROTO-SLOT-VALUE) to be INLINE, but 3 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-protobufs" "misc" "message-api">
; 
; caught COMMON-LISP:ERROR:
;   COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: Package COM.GOOGLE.BASE does not exist. Line: 12, Column: 48, File-Position: 343 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/any.lisp" {101F4A3873}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {101F4CE023}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {101F4CE023}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {101F4CE023}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10064BE133}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10064BE133}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-protobufs/tests"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-protobufs/tests">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-protobufs/tests">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-protobufs/tests")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-protobufs/tests") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10064A7F9B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10064733CB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-protobufs/tests") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-protobufs" "cl-protobufs/tests")
23: (DEPCHECK::MAGIC "cl-protobufs" "cl-protobufs/tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4LgjXjyX/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-protobufs" "cl-protobufs/tests" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4LgjXjyX/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4LgjXjyX/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition
;   caught 3 STYLE-WARNING conditions
;   printed 57 notes

cl-protobufs

; 
; caught COMMON-LISP:ERROR:
;   COMMON-LISP:READ error during COMMON-LISP:COMPILE-FILE: Package COM.GOOGLE.BASE does not exist. Line: 12, Column: 48, File-Position: 343 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/.cache/common-lisp/sbcl-2.1.7.62-417920f09-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-protobufs/3184aa3b843ebc0aeacca9c7316733b06888c010/cl-protobufs-20211002-git/any.lisp" {10068B1C33}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10068DD2D3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10068DD2D3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10068DD2D3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<PROTOBUF-SYSTEM:PROTOBUF-SOURCE-FILE "cl-protobufs" "well-known-types" "any">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005C20C13}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005C20C13}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-protobufs"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-protobufs">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-protobufs">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-protobufs")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-protobufs") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005C0D53B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005BD8BEB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-protobufs") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-protobufs" "cl-protobufs")
23: (DEPCHECK::MAGIC "cl-protobufs" "cl-protobufs" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6LjzHSch/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-protobufs" "cl-protobufs" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6LjzHSch/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-6LjzHSch/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition