cl-libdsfmt

SBCL 1.4.3 / ASDF 3.3.1

cl-libdsfmt

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180125-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
; 
; caught STYLE-WARNING:
;   Undefined alien: "dsfmt_get_min_array_size"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN INIT-BY-ARRAY
;     (ASSERT (TYPEP CL-LIBDSFMT::INIT-KEY '(VECTOR CL-LIBDSFMT::UNSIGNED-INT (*)))
;             NIL "The init-key must be an array of unsigned-int numbers.")
; --> TAGBODY LET WHEN IF 
; ==>
;   (TYPEP #:TEMP0 '(VECTOR CL-LIBDSFMT::UNSIGNED-INT (*)))
; 
; caught WARNING:
;   illegal type specifier for TYPEP: (VECTOR UNSIGNED-INT (*))
; 
; caught WARNING:
;   illegal type specifier for TYPEP: (VECTOR UNSIGNED-INT (*))

;     (CL-LIBDSFMT:DSFMT-GV-INIT-BY-ARRAY CL-LIBDSFMT::INIT-KEY
;                                         (LENGTH CL-LIBDSFMT::INIT-KEY))
; --> BLOCK LET LET CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL 
; --> ALIEN-FUNCALL MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL LET LET 
; --> SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB-C:%ALIEN-FUNCALL 
; ==>
;   (SB-ALIEN-INTERNALS:DEPORT #:G8
;                              '#<SB-ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE SB-SYS:SYSTEM-AREA-POINTER>)
; 
; caught WARNING:
;   Derived type of #:G8 is (VALUES SEQUENCE &OPTIONAL), conflicting with its asserted type SB-SYS:SYSTEM-AREA-POINTER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN RANDOM-CLOSE1-OPEN2
;     (CL-LIBDSFMT:DSFMT-GV-GENRAND-CLOSE1-OPEN2)
; --> BLOCK CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   ALIEN
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN RANDOM-CLOSE-OPEN
;     (CL-LIBDSFMT:DSFMT-GV-GENRAND-CLOSE-OPEN)
; --> BLOCK CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   ALIEN
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN RANDOM-OPEN-CLOSE
;     (CL-LIBDSFMT:DSFMT-GV-GENRAND-OPEN-CLOSE)
; --> BLOCK CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   ALIEN
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN RANDOM-OPEN-OPEN
;     (CL-LIBDSFMT:DSFMT-GV-GENRAND-OPEN-OPEN)
; --> BLOCK CFFI-SYS:%FOREIGN-FUNCALL CFFI-SYS::%%FOREIGN-FUNCALL ALIEN-FUNCALL 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   ALIEN
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN FILL-ARRAY-CLOSE1-OPEN2
;     (SUBSEQ CL-LIBDSFMT::ARR 0 CL-LIBDSFMT::SIZE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (ASSERT (TYPEP CL-LIBDSFMT::SIZE '(INTEGER 0 *)) NIL
;             "The size must be a postive integer.")
; --> TAGBODY LET WHEN IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND 
; --> THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (< CL-LIBDSFMT::SIZE CL-LIBDSFMT:+MIN-ARRAY-SIZE+)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       etc.

;     (STATIC-VECTORS:MAKE-STATIC-VECTOR CL-LIBDSFMT::SIZE :ELEMENT-TYPE
;                                        'DOUBLE-FLOAT)
; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING * 
; ==>
;   (ASH SB-C::X 6)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 295147905179352825793) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 295147905179352825793) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE 
; --> IF VALUES 
; ==>
;   (ASH SB-C::X -7)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (MOD 295147905179352825793), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * 
; ==>
;   (ASH SB-C::X 4)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 36893488147419103233) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103233) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET 
; ==>
;   (+
;    (* 2 SB-VM:N-WORD-BYTES
;       (CEILING
;        (*
;         (IF #
;             #
;             LENGTH)
;         STATIC-VECTORS::N-BITS)
;        (* 2 SB-VM:N-WORD-BITS)))
;    STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (MOD 36893488147419103233), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 36893488147419103248) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 36893488147419103233), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 36893488147419103248) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (STATIC-VECTORS:STATIC-VECTOR-POINTER CL-LIBDSFMT::ARR)
; --> BLOCK CHECK-TYPE DO BLOCK LET TAGBODY UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + + 
; ==>
;   (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;      STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (MOD 18446744073709551601), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 18446744073709551616) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709551601), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 18446744073709551616) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + 
; ==>
;   (+
;    (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;       STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
;    STATIC-VECTORS::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 16 18446744073709551616), not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 16) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 16 18446744073709551616), not a (SIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 16) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + + 
; ==>
;   (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;      STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN FILL-ARRAY-CLOSE-OPEN
;     (SUBSEQ CL-LIBDSFMT::ARR 0 CL-LIBDSFMT::SIZE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (ASSERT (TYPEP CL-LIBDSFMT::SIZE '(INTEGER 0 *)) NIL
;             "The size must be a postive integer.")
; --> TAGBODY LET WHEN IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND 
; --> THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (< CL-LIBDSFMT::SIZE CL-LIBDSFMT:+MIN-ARRAY-SIZE+)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       etc.

;     (STATIC-VECTORS:MAKE-STATIC-VECTOR CL-LIBDSFMT::SIZE :ELEMENT-TYPE
;                                        'DOUBLE-FLOAT)
; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING * 
; ==>
;   (ASH SB-C::X 6)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 295147905179352825793) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 295147905179352825793) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE 
; --> IF VALUES 
; ==>
;   (ASH SB-C::X -7)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (MOD 295147905179352825793), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * 
; ==>
;   (ASH SB-C::X 4)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 36893488147419103233) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103233) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET 
; ==>
;   (+
;    (* 2 SB-VM:N-WORD-BYTES
;       (CEILING
;        (*
;         (IF #
;             #
;             LENGTH)
;         STATIC-VECTORS::N-BITS)
;        (* 2 SB-VM:N-WORD-BITS)))
;    STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (MOD 36893488147419103233), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 36893488147419103248) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 36893488147419103233), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 36893488147419103248) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (STATIC-VECTORS:STATIC-VECTOR-POINTER CL-LIBDSFMT::ARR)
; --> BLOCK CHECK-TYPE DO BLOCK LET TAGBODY UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + + 
; ==>
;   (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;      STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (MOD 18446744073709551601), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 18446744073709551616) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709551601), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 18446744073709551616) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + 
; ==>
;   (+
;    (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;       STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
;    STATIC-VECTORS::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 16 18446744073709551616), not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 16) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a (INTEGER 16 18446744073709551616), not a (SIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 16) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + + 
; ==>
;   (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;      STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-libdsfmt/1f10c6f98bdfb47de314a2eee860d459d9988c9b/cl-libdsfmt-20180125-git/src/dsfmt.lisp
; in: DEFUN FILL-ARRAY-OPEN-CLOSE
;     (SUBSEQ CL-LIBDSFMT::ARR 0 CL-LIBDSFMT::SIZE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (ASSERT (TYPEP CL-LIBDSFMT::SIZE '(INTEGER 0 *)) NIL
;             "The size must be a postive integer.")
; --> TAGBODY LET WHEN IF TYPEP LET SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND 
; --> THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

;     (< CL-LIBDSFMT::SIZE CL-LIBDSFMT:+MIN-ARRAY-SIZE+)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       etc.

;     (STATIC-VECTORS:MAKE-STATIC-VECTOR CL-LIBDSFMT::SIZE :ELEMENT-TYPE
;                                        'DOUBLE-FLOAT)
; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING * 
; ==>
;   (ASH SB-C::X 6)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 295147905179352825793) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 295147905179352825793) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE 
; --> IF VALUES 
; ==>
;   (ASH SB-C::X -7)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (MOD 295147905179352825793), not a (UNSIGNED-BYTE 64).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION 
; --> IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (MOD 295147905179352825793), not a FIXNUM.
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET + * * 
; ==>
;   (ASH SB-C::X 4)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 36893488147419103233) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103233) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> LET* PROGN STATIC-VECTORS::CMFUNCALL LET STATIC-VECTORS::THE* TRULY-THE 
; --> STATIC-VECTORS::%%ALLOCATE-STATIC-VECTOR STATIC-VECTORS::%ALLOCATION-SIZE 
; --> BLOCK FLET 
; ==>
;   (+
;    (* 2 SB-VM:N-WORD-BYTES
;       (CEILING
;        (*
;         (IF #
;             #
;             LENGTH)
;         STATIC-VECTORS::N-BITS)
;        (* 2 SB-VM:N-WORD-BITS)))
;    STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (MOD 36893488147419103233), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 36893488147419103248) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 36893488147419103233), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 36893488147419103248) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (STATIC-VECTORS:STATIC-VECTOR-POINTER CL-LIBDSFMT::ARR)
; --> BLOCK CHECK-TYPE DO BLOCK LET TAGBODY UNLESS IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER LET AND IF LOCALLY AND THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + + 
; ==>
;   (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;      STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (MOD 18446744073709551601), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 18446744073709551616) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (MOD 18446744073709551601), not a FIXNUM.
;       The result is a (VALUES (INTEGER 16 18446744073709551616) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK CFFI-SYS:MAKE-POINTER + 
; ==>
;   (+
;    (+ (STATIC-VECTORS::STATIC-VECTOR-ADDRESS VECTOR)
;       STATIC-VECTORS::+ARRAY-HEADER-SIZE+)
;    STATIC-VECTORS::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER