cl-directed-graph

SBCL 1.4.6 / ASDF 3.3.1

cl-directed-graph

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180501-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/introspect-environment/599d21a1de88776bb340d0830e7f3774f061c269/introspect-environment-20180501-git/sbcl.lisp
; in: DEFUN PARSE-COMPILER-MACRO
;     (ERROR "Don't know how to PARSE-COMPILER-MACRO on this SBCL version.")
; ==>
;   "Don't know how to PARSE-COMPILER-MACRO on this SBCL version."
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/trivial-file-size/cf8f78bbbbb18e547dd47cff487ac30a4f356c43/trivial-file-size-20180501-git/trivial-file-size.lisp
; in: DEFUN FILE-SIZE-IN-OCTETS
;     (DEFUN TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS (TRIVIAL-FILE-SIZE::FILE)
;       "Return the size of FILE in octets.
;   Whenever possible, get the size from the file's metadata.
;   
;   Some platforms (e.g. ABCL) may return 0 when the file does not exist."
;       (MULTIPLE-VALUE-BIND (TRIVIAL-FILE-SIZE::PATH NAMESTRING)
;           (ETYPECASE TRIVIAL-FILE-SIZE::FILE
;             (STRING (VALUES # TRIVIAL-FILE-SIZE::FILE))
;             (PATHNAME (VALUES TRIVIAL-FILE-SIZE::FILE #)))
;         (DECLARE (IGNORABLE TRIVIAL-FILE-SIZE::PATH NAMESTRING))
;         (HANDLER-CASE (PROGN (SB-POSIX:STAT-SIZE #)) (ERROR NIL NIL))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS
;         (TRIVIAL-FILE-SIZE::FILE)
;       "Return the size of FILE in octets.
; Whenever possible, get the size from the file's metadata.
; 
; Some platforms (e.g. ABCL) may return 0 when the file does not exist."
;       (BLOCK TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS
;         (MULTIPLE-VALUE-BIND (TRIVIAL-FILE-SIZE::PATH NAMESTRING)
;             (ETYPECASE TRIVIAL-FILE-SIZE::FILE (STRING #) (PATHNAME #))
;           (DECLARE (IGNORABLE TRIVIAL-FILE-SIZE::PATH NAMESTRING))
;           (HANDLER-CASE (PROGN #) (ERROR NIL NIL)))))
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL (OR NULL UNSIGNED-BYTE) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/types.lisp
; in: DEFMACRO WITH-TYPE-DECLARATIONS-TRUSTED
;     (LET ((SPEED (INTROSPECT-ENVIRONMENT:POLICY-QUALITY 'SPEED SERAPEUM::ENV))
;           (SAFETY (INTROSPECT-ENVIRONMENT:POLICY-QUALITY 'SAFETY SERAPEUM::ENV)))
;       (IF (AND (< SAFETY 3) (>= SPEED SAFETY))
;           (VALUES SPEED SAFETY)
;           (LET* ((SAFETY #) (SPEED #))
;             (VALUES SPEED SAFETY))))
; 
; note: deleting unreachable code

;     (>= SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

;     (< SAFETY 3)
; ==>
;   SAFETY
; 
; note: deleting unreachable code

;     (VALUES SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

;     (>= SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

;     (< SAFETY 3)
; ==>
;   SAFETY
; 
; note: deleting unreachable code

;     (IF (AND (< SAFETY 3) (>= SPEED SAFETY))
;         (VALUES SPEED SAFETY)
;         (LET* ((SAFETY (MIN SAFETY 2)) (SPEED (MAX SPEED SAFETY)))
;           (VALUES SPEED SAFETY)))
; 
; note: deleting unreachable code

;     (LET* ((SAFETY (MIN SAFETY 2)) (SPEED (MAX SPEED SAFETY)))
;       (VALUES SPEED SAFETY))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (MAX SPEED SAFETY)
; --> LET LET MAX LET 
; ==>
;   SAFETY
; 
; note: deleting unreachable code

;     (LET* ((SAFETY (MIN SAFETY 2)) (SPEED (MAX SPEED SAFETY)))
;       (VALUES SPEED SAFETY))
; 
; note: deleting unreachable code

;     (VALUES SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/trees.lisp
; in: DEFUN LEAF-WALK
;     (SERAPEUM:LEAF-WALK (SERAPEUM::FUN SERAPEUM::TREE)
;      (DECLARE (FUNCTION SERAPEUM::FUN))
;      (COND ((ATOM SERAPEUM::TREE) (FUNCALL SERAPEUM::FUN SERAPEUM::TREE))
;            (T (SERAPEUM:LEAF-WALK SERAPEUM::FUN (CAR SERAPEUM::TREE))
;             (SERAPEUM:LEAF-WALK SERAPEUM::FUN (CDR SERAPEUM::TREE)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/files.lisp
; in: DEFUN FILE=
;     (= (TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS SERAPEUM::FILE1)
;        (TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS SERAPEUM::FILE2))
; --> EQL IF EQL SB-KERNEL:%EQL/INTEGER IF 
; ==>
;   (SB-KERNEL:%EQL/INTEGER SB-C::X SB-C::Y)
; 
; note: forced to do %EQL/INTEGER (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/files.lisp
; in: DEFUN FILE=/LOOP
;     (= (FILE-LENGTH SERAPEUM::FILE1) (FILE-LENGTH SERAPEUM::FILE2))
; --> EQL IF EQL SB-KERNEL:%EQL/INTEGER IF 
; ==>
;   (SB-KERNEL:%EQL/INTEGER SB-C::X SB-C::Y)
; 
; note: forced to do %EQL/INTEGER (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/numbers.lisp
; in: DEFUN READ-FLOAT-AUX
;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (EXPT 10 SERAPEUM::E)
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a INTEGER.
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a UNSIGNED-BYTE.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The second argument is a NUMBER, not a INTEGER.

;     (* SERAPEUM::E 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (EXPT 10 SERAPEUM::E)
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a INTEGER.
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a UNSIGNED-BYTE.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The second argument is a NUMBER, not a INTEGER.

;     (* NUMBER 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (* SERAPEUM::DIVISOR 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (* NUMBER 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ (* NUMBER 10) SERAPEUM::DIGIT)
; 
; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (* NUMBER 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ (* NUMBER 10) SERAPEUM::DIGIT)
; 
; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (* SERAPEUM::DIVISOR 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T).
;       etc.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 4) 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 &REST T).
;       etc.

;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T).
;       etc.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 4) 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 &REST T).
;       etc.

;     (* SERAPEUM::E 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ (* SERAPEUM::E 10) SERAPEUM::DIGIT)
; 
; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/octets.lisp
; in: DEFUN OCTETS
;     (SERAPEUM:WITH-SUBTYPE-DISPATCH INTEGER
;         ((UNSIGNED-BYTE 32) (UNSIGNED-BYTE 64) FIXNUM)
;         SERAPEUM::N
;       (LET* ((SERAPEUM::N-BITS (INTEGER-LENGTH SERAPEUM::N))
;              (SERAPEUM::N-BYTES (CEILING SERAPEUM::N-BITS 8))
;              (SERAPEUM::VEC (SERAPEUM:MAKE-OCTET-VECTOR SERAPEUM::N-BYTES)))
;         (DECLARE (SERAPEUM:OCTET-VECTOR SERAPEUM::VEC))
;         (IF SERAPEUM::BIG-ENDIAN
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM (1-
;                                                             SERAPEUM::N-BYTES) SERAPEUM::DOWNTO 0
;                   SERAPEUM::FOR SERAPEUM::J SERAPEUM::FROM 0
;                   DO ...)
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM 0 SERAPEUM::BELOW SERAPEUM::N-BYTES
;                   SERAPEUM::FOR BYTE SERAPEUM::FROM 0 SERAPEUM::BY ...))
;         SERAPEUM::VEC))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT10)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (INTEGER * -1) (INTEGER 4294967296)), not a FIXNUM.

;     (LDB (BYTE 8 BYTE) SERAPEUM::N)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 4) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The second argument is a (INTEGER -4611686018427387840 0), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       unable to do inline ASH (cost 5) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

;     (LDB (BYTE 8 (* SERAPEUM::I 8)) SERAPEUM::N)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 4) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The second argument is a (INTEGER -4611686018427387832 0), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       unable to do inline ASH (cost 5) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/octets.lisp
; in: DEFUN UNOCTETS
;     (ASH SERAPEUM::SUM 8)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a T, 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 T, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

;     (+ SERAPEUM:OCTET (ASH SERAPEUM::SUM 8))
; 
; 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 INTEGER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (* SERAPEUM::I 8)
; ==>
;   (ASH SB-C::X 3)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 36893488147419103193) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103193) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

;     (ASH (AREF SERAPEUM::BYTES SERAPEUM::I) (* SERAPEUM::I 8))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The second argument is a (MOD 36893488147419103193), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a (MOD 36893488147419103193), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM (1-
;                                                     (LENGTH
;                                                      SERAPEUM::BYTES)) SERAPEUM::DOWNTO 0
;           SERAPEUM::SUM (ASH (AREF SERAPEUM::BYTES SERAPEUM::I)
;                              (* SERAPEUM::I 8)))
; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-0 (ASH (AREF SERAPEUM::BYTES SERAPEUM::I) (* SERAPEUM::I 8)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/fbind.lisp
; in: DEFMACRO FBINDREC
;     (ALEXANDRIA.0.DEV:COMPOSE #'GENSYM #'STRING #'FIRST)
; --> LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:COMPOSE58)
;                   (APPLY #:COMPOSE59 ALEXANDRIA.0.DEV::ARGUMENTS))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/fbind.lisp
; in: DEFMACRO FBINDREC*
;     (ALEXANDRIA.0.DEV:COMPOSE #'GENSYM #'STRING #'FIRST)
; --> LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:COMPOSE60)
;                   (APPLY #:COMPOSE61 ALEXANDRIA.0.DEV::ARGUMENTS))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/lists.lisp
; in: DEFSUBST APPEND1
;     (SERAPEUM:DEFSUBST SERAPEUM:APPEND1
;         (LIST SERAPEUM::ITEM)
;       "Append an atom to a list.
;   
;       (append1 list item)
;       ≡ (append list (list item))"
;       (APPEND LIST (LIST SERAPEUM::ITEM)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SERAPEUM:APPEND1) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SERAPEUM:APPEND1 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/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/lists.lisp
; in: DEFINE-COMPILER-MACRO MEMQ
;     (DEFINE-COMPILER-MACRO SERAPEUM:MEMQ
;         (&WHOLE SERAPEUM::CALL SERAPEUM::ITEM LIST &ENVIRONMENT SERAPEUM::ENV)
;       (MULTIPLE-VALUE-BIND (LIST SERAPEUM::CONSTANT?)
;           (SERAPEUM:EVAL-IF-CONSTANT LIST SERAPEUM::ENV)
;         (IF (NOT SERAPEUM::CONSTANT?)
;             SERAPEUM::CALL
;             (IF (NOT #)
;                 SERAPEUM::CALL
;                 `(CASE ,SERAPEUM::ITEM ,@#)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:MEMQ
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:MEMQ)
;                                     (#:EXPR SERAPEUM::ENV &AUX
;                                      (SERAPEUM::CALL #:EXPR))
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST (SERAPEUM::ITEM LIST)))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:MEMQ
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::ITEM LIST)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:MEMQ
;                                       (MULTIPLE-VALUE-BIND # # #)))))
; 
; caught STYLE-WARNING:
;   6 calls to SERAPEUM:MEMQ were compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call sites will eliminate this warning, as will defining the compiler-macro before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "lists">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFUN MAP-SUBSEQ
;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (IF SERAPEUM::FROM-END
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                             SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;               SERAPEUM::END
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I))))
; ==>
;   SERAPEUM::FROM-END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET #:TYPE-DISPATCH-FUN31 BLOCK 
; --> SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (IF SERAPEUM::FROM-END
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                             SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;               SERAPEUM::END
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I))))
; ==>
;   SERAPEUM::FROM-END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF PROGN 
; --> #:TYPE-DISPATCH-FUN31 BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (IF SERAPEUM::FROM-END
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                             SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;               SERAPEUM::END
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I))))
; ==>
;   SERAPEUM::FROM-END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF IF PROGN 
; --> #:TYPE-DISPATCH-FUN31 BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (IF SERAPEUM::FROM-END
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                             SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;         (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;               SERAPEUM::END
;               DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I))))
; ==>
;   SERAPEUM::FROM-END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF IF IF PROGN 
; --> #:TYPE-DISPATCH-FUN31 BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFINE-DO-MACRO DO-SUBSEQ
;     (SERAPEUM:DEFINE-DO-MACRO SERAPEUM::DO-SUBSEQ
;         ((SERAPEUM::VAR SERAPEUM::SEQ &OPTIONAL RETURN &KEY SERAPEUM::START
;           SERAPEUM::END SERAPEUM::FROM-END)
;          &BODY SERAPEUM::BODY)
;       `(SERAPEUM::MAP-SUBSEQ (LAMBDA (,SERAPEUM::VAR) ,@SERAPEUM::BODY)
;         ,SERAPEUM::SEQ ,SERAPEUM::START ,SERAPEUM::END ,SERAPEUM::FROM-END))
; ==>
;   (DEFMACRO SERAPEUM::DO-SUBSEQ
;             (
;              (SERAPEUM::VAR
;               SERAPEUM::SEQ
;               &OPTIONAL
;               RETURN
;               &KEY
;               SERAPEUM::START
;               SERAPEUM::END
;               SERAPEUM::FROM-END)
;              &BODY SERAPEUM::BODY)
;     (MULTIPLE-VALUE-BIND (SERAPEUM::BODY SERAPEUM::DECLS)
;         (ALEXANDRIA.0.DEV:PARSE-BODY SERAPEUM::BODY)
;       (LET ((SERAPEUM::BODY #))
;         (FARE-QUASIQUOTE::LIST (FARE-QUASIQUOTE::QUOTE BLOCK) NIL
;                                `(SERAPEUM::MAP-SUBSEQ # ,SERAPEUM::SEQ
;                                  ,SERAPEUM::START ,SERAPEUM::END
;                                  ,SERAPEUM::FROM-END)
;                                (WHEN RETURN #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (VAR SEQ &OPTIONAL RETURN &KEY START END FROM-END)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFUN MAKE-BUCKET
;     (LIST SERAPEUM::INIT)
; --> CONS 
; ==>
;   SERAPEUM::INIT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFINE-COMPILER-MACRO FILTER
;     (DEFINE-COMPILER-MACRO SERAPEUM:FILTER
;         (&WHOLE SERAPEUM::DECLINE SERAPEUM::PRED SERAPEUM::SEQ &REST
;          SERAPEUM::ARGS &KEY COUNT &ALLOW-OTHER-KEYS)
;       "In the absence of COUNT, expand directly to `remove-if-not'."
;       (IF (NULL COUNT)
;           `(REMOVE-IF-NOT ,SERAPEUM::PRED ,SERAPEUM::SEQ ,@SERAPEUM::ARGS)
;           SERAPEUM::DECLINE))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:FILTER
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:FILTER)
;                                     (#:EXPR #:ENV &AUX
;                                      (SERAPEUM::DECLINE #:EXPR))
;                                   "In the absence of COUNT, expand directly to `remove-if-not'."
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::PRED SERAPEUM::SEQ &REST
;                                      SERAPEUM::ARGS &KEY COUNT
;                                      &ALLOW-OTHER-KEYS)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:FILTER
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::PRED SERAPEUM::SEQ &REST
;                                        SERAPEUM::ARGS &KEY COUNT
;                                        &ALLOW-OTHER-KEYS)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:FILTER
;                                       (IF #
;                                           `#
;                                           SERAPEUM::DECLINE)))))
; 
; caught STYLE-WARNING:
;   5 calls to SERAPEUM:FILTER were compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call sites will eliminate this warning, as will defining the compiler-macro before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFINE-COMPILER-MACRO KEEP
;     (DEFINE-COMPILER-MACRO SERAPEUM:KEEP
;         (&WHOLE SERAPEUM::DECLINE SERAPEUM::ITEM SERAPEUM::SEQ &REST
;          SERAPEUM::ARGS &KEY (SERAPEUM::TEST '#'EQL) COUNT &ALLOW-OTHER-KEYS)
;       "In the absence of COUNT, expand directly to `remove'."
;       (IF (NULL COUNT)
;           `(REMOVE ,SERAPEUM::ITEM ,SERAPEUM::SEQ :TEST-NOT ,SERAPEUM::TEST
;                    ,@(ALEXANDRIA.0.DEV:REMOVE-FROM-PLIST SERAPEUM::ARGS :TEST))
;           SERAPEUM::DECLINE))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:KEEP
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:KEEP)
;                                     (#:EXPR #:ENV &AUX
;                                      (SERAPEUM::DECLINE #:EXPR))
;                                   "In the absence of COUNT, expand directly to `remove'."
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::ITEM SERAPEUM::SEQ &REST
;                                      SERAPEUM::ARGS &KEY # COUNT
;                                      &ALLOW-OTHER-KEYS)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:KEEP
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::ITEM SERAPEUM::SEQ &REST
;                                        SERAPEUM::ARGS &KEY
;                                        (SERAPEUM::TEST '#'EQL) COUNT
;                                        &ALLOW-OTHER-KEYS)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:KEEP
;                                       (IF #
;                                           `#
;                                           SERAPEUM::DECLINE)))))
; 
; caught STYLE-WARNING:
;   1 call to SERAPEUM:KEEP was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFSUBST SINGLE
;     (SERAPEUM:DEFSUBST SERAPEUM:SINGLE
;         (SERAPEUM::SEQ)
;       "Is SEQ a sequence of one element?"
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (AND SERAPEUM::SEQ (ENDP (CDR SERAPEUM::SEQ)))
;         (= (LENGTH SERAPEUM::SEQ) 1)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SERAPEUM:SINGLE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SERAPEUM:SINGLE to be INLINE, but 4 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/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFUN BESTN
;     (SERAPEUM:TAKE SERAPEUM::N
;      (NREVERSE
;       (SERAPEUM::HEAP-EXTRACT-ALL SERAPEUM::HEAP :KEY SERAPEUM::KEY :TEST
;        #'SERAPEUM::TEST)))
; --> BLOCK SERAPEUM::SEQ-DISPATCH LET IF IF IF LET SERAPEUM::WITH-VREF LOCALLY 
; --> MACROLET SERAPEUM:WITH-READ-ONLY-VARS LET SYMBOL-MACROLET IF SUBSEQ MAX 
; --> LET LET MAX LET + 
; ==>
;   SERAPEUM::N
; 
; note: deleting unreachable code

; --> BLOCK SERAPEUM::SEQ-DISPATCH LET IF IF IF LET 
; --> SERAPEUM:WITH-READ-ONLY-VARS LET SYMBOL-MACROLET IF SUBSEQ MAX LET LET 
; --> MAX LET + 
; ==>
;   SERAPEUM::N
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFUN RESHUFFLE
;     (DEFUN SERAPEUM:RESHUFFLE (SERAPEUM::SEQ &KEY (SERAPEUM::ELEMENT-TYPE '*))
;       #<(SIMPLE-ARRAY CHARACTER
;          (435)) Like `alexandria:shuffle', but non-destructive.
;   
;   Regardless of the type of SEQ, the return value is always a vector.
;   
;   If ELEMENT-TYPE is provided, this is the element type (modulo
;   upgrading) of the ve... {100A69BA5F}>
;       (ALEXANDRIA.0.DEV:SHUFFLE
;        (ALEXANDRIA.0.DEV:COPY-SEQUENCE
;         `(SIMPLE-ARRAY ,SERAPEUM::ELEMENT-TYPE (*)) SERAPEUM::SEQ)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:RESHUFFLE
;         (SERAPEUM::SEQ &KEY (SERAPEUM::ELEMENT-TYPE '*))
;       #<(SIMPLE-ARRAY CHARACTER
;          (435)) Like `alexandria:shuffle', but non-destructive.
; 
; Regardless of the type of SEQ, the return value is always a vector.
; 
; If ELEMENT-TYPE is provided, this is the element type (modulo
; upgrading) of the ve... {100A69BA5F}>
;       (BLOCK SERAPEUM:RESHUFFLE
;         (ALEXANDRIA.0.DEV:SHUFFLE
;          (ALEXANDRIA.0.DEV:COPY-SEQUENCE
;           `(SIMPLE-ARRAY ,SERAPEUM::ELEMENT-TYPE #) SERAPEUM::SEQ))))
; 
; note: type assertion too complex to check:
; (VALUES (SIMPLE-ARRAY * (*)) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFUN TSORT
;     (ALEXANDRIA.0.DEV:REMOVEF SERAPEUM::CONSTRAINTS SERAPEUM::CHOICE :TEST
;                               #'MEMBER)
; --> LET* SETQ THE ALEXANDRIA.0.DEV::REMOVE/SWAPPED-ARGUMENTS BLOCK APPLY 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C::%FUNCALL #'REMOVE #:G54 #:G55 #:G56 #:G57)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFSUBST INTERSPERSE
;     (SERAPEUM:DEFSUBST SERAPEUM:INTERSPERSE
;         (SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;       "Return a sequence like SEQ, but with NEW-ELT inserted between each
;   element."
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (SERAPEUM::INTERSPERSE/LIST SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;         (SERAPEUM::INTERSPERSE/SEQ SERAPEUM::NEW-ELT SERAPEUM::SEQ)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:INTERSPERSE
;         (SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;       "Return a sequence like SEQ, but with NEW-ELT inserted between each
; element."
;       (BLOCK SERAPEUM:INTERSPERSE
;         (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;           (SERAPEUM::INTERSPERSE/LIST SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;           (SERAPEUM::INTERSPERSE/SEQ SERAPEUM::NEW-ELT SERAPEUM::SEQ))))
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL SEQUENCE &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/sequences.lisp
; in: DEFUN REPEAT-SEQUENCE
;     (DEFUN SERAPEUM:REPEAT-SEQUENCE (SERAPEUM::SEQ SERAPEUM::N)
;       #<(SIMPLE-ARRAY CHARACTER
;          (457)) Return a sequence like SEQ, with the same content, but repeated N times.
;   
;       (repeat-sequence "13" 3)
;       => "131313"
;   
;   The length of the sequence returned will always be the length of SEQ
;   times N.
;   
;   T... {100BA88F8F}>
;       (CHECK-TYPE SERAPEUM::N (INTEGER 0 *))
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (SERAPEUM::REPEAT-LIST SERAPEUM::SEQ SERAPEUM::N)
;         (SERAPEUM::REPEAT-VECTOR SERAPEUM::SEQ SERAPEUM::N)
;         (LET ((SERAPEUM::LEN #))
;           (IF (ZEROP SERAPEUM::LEN)
;               (SERAPEUM::MAKE-SEQUENCE-LIKE SERAPEUM::SEQ 0)
;               (LOOP SERAPEUM::WITH SERAPEUM::OUT = #
;                     SERAPEUM::REPEAT SERAPEUM::N
;                     SERAPEUM::FOR SERAPEUM::OFFSET SERAPEUM::FROM 0 SERAPEUM::BY ...)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:REPEAT-SEQUENCE
;         (SERAPEUM::SEQ SERAPEUM::N)
;       #<(SIMPLE-ARRAY CHARACTER
;          (457)) Return a sequence like SEQ, with the same content, but repeated N times.
; 
;     (repeat-sequence "13" 3)
;     => "131313"
; 
; The length of the sequence returned will always be the length of SEQ
; times N.
; 
; T... {100BA88F8F}>
;       (BLOCK SERAPEUM:REPEAT-SEQUENCE
;         (CHECK-TYPE SERAPEUM::N (INTEGER 0 *))
;         (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;           (SERAPEUM::REPEAT-LIST SERAPEUM::SEQ SERAPEUM::N)
;           (SERAPEUM::REPEAT-VECTOR SERAPEUM::SEQ SERAPEUM::N)
;           (LET (#)
;             (IF #
;                 #
;                 #)))))
; 
; note: Assignment to argument: N
;   prevents use of assertion from function type proclamation:
;  UNSIGNED-BYTE
; 
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL SEQUENCE &REST T).
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "sequences">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/strings.lisp
; in: DEFUN STRING-UPCASE-INITIALS
;     (DEFUN SERAPEUM:STRING-UPCASE-INITIALS (STRING)
;       #<(SIMPLE-ARRAY CHARACTER
;          (329)) Return STRING with the first letter of each word capitalized.
;   This differs from STRING-CAPITALIZE in that the other characters in
;   each word are not changed.
;   
;        (string-capitalize "an ACRONYM") -> "... {100D513E3F}>
;       (SERAPEUM:NSTRING-UPCASE-INITIALS (SERAPEUM::COPY-STRING STRING)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:STRING-UPCASE-INITIALS
;         (STRING)
;       #<(SIMPLE-ARRAY CHARACTER
;          (329)) Return STRING with the first letter of each word capitalized.
; This differs from STRING-CAPITALIZE in that the other characters in
; each word are not changed.
; 
;      (string-capitalize "an ACRONYM") -> "... {100D513E3F}>
;       (BLOCK SERAPEUM:STRING-UPCASE-INITIALS
;         (SERAPEUM:NSTRING-UPCASE-INITIALS (SERAPEUM::COPY-STRING STRING))))
; 
; note: type assertion too complex to check:
; (VALUES STRING &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/strings.lisp
; in: DEFUN WORDS
;     (DEFUN SERAPEUM:WORDS (STRING &KEY (SERAPEUM::START 0) SERAPEUM::END)
;       #<(SIMPLE-ARRAY CHARACTER (426)) Split STRING into words.
;   
;   The definition of a word is the same as that used by
;   `string-capitalize': a run of alphanumeric characters.
;   
;       (words "Four score and seven years")
;       => ("Four" "score" "... {100DE35D1F}>
;       (DECLARE (STRING STRING)
;                (OPTIMIZE SPEED)
;                (INLINE SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT))
;       (VALUES
;        (SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT #'ALPHANUMERICP STRING
;                                              :REMOVE-EMPTY-SUBSEQS T :START
;                                              SERAPEUM::START :END SERAPEUM::END)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SERAPEUM:WORDS
;                    (SB-INT:NAMED-LAMBDA SERAPEUM:WORDS
;                        (STRING &KEY (SERAPEUM::START 0) SERAPEUM::END)
;                      #<(SIMPLE-ARRAY CHARACTER (426)) Split STRING into words.
; 
; The definition of a word is the same as that used by
; `string-capitalize': a run of alphanumeric characters.
; 
;     (words "Four score and seven years")
;     => ("Four" "score" "... {100DE35D1F}>
;                      (DECLARE (STRING STRING)
;                               (OPTIMIZE SPEED)
;                               (INLINE SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT))
;                      (BLOCK SERAPEUM:WORDS
;                        (VALUES
;                         (SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT #'ALPHANUMERICP
;                                                               STRING
;                                                               :REMOVE-EMPTY-SUBSEQS
;                                                               T :START
;                                                               SERAPEUM::START
;                                                               :END
;                                                               SERAPEUM::END)))))
; 
; caught STYLE-WARNING:
;   Call to SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/strings.lisp
; in: DEFINE-COMPILER-MACRO FMT
;     (DEFINE-COMPILER-MACRO SERAPEUM:FMT
;         (SERAPEUM::CONTROL-STRING &REST SERAPEUM::ARGS)
;       `(THE STRING
;             ,(IF (STRINGP SERAPEUM::CONTROL-STRING)
;                  (COND (# `#) (# #) (# #) (T `#))
;                  `(LET (*PRINT-PRETTY*)
;                     (FORMAT NIL ,SERAPEUM::CONTROL-STRING ,@SERAPEUM::ARGS)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:FMT
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:FMT)
;                                     (#:EXPR #:ENV)
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::CONTROL-STRING &REST
;                                      SERAPEUM::ARGS)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:FMT
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::CONTROL-STRING &REST
;                                        SERAPEUM::ARGS)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:FMT `(THE STRING ,#)))))
; 
; caught STYLE-WARNING:
;   2 calls to SERAPEUM:FMT were compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call sites will eliminate this warning, as will defining the compiler-macro before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "strings">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/2beecce7749e3d978cc515d53c910a9130de71e4/serapeum-20180501-git/internal-definitions.lisp
; in: DEFMETHODS INTERNAL-DEFINITIONS-ENV
;     (:METHOD SERAPEUM/INTERNAL-DEFINITIONS::SHADOW-SYMBOL-MACRO
;      (SERAPEUM/INTERNAL-DEFINITIONS::SELF SERAPEUM/INTERNAL-DEFINITIONS::NAME)
;      (ALEXANDRIA.0.DEV:REMOVEF
;       SERAPEUM/INTERNAL-DEFINITIONS::GLOBAL-SYMBOL-MACROS
;       SERAPEUM/INTERNAL-DEFINITIONS::NAME :KEY #'CAR))
; --> SYMBOL-MACROLET DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LET LET 
; --> ALEXANDRIA.0.DEV::REMOVE/SWAPPED-ARGUMENTS BLOCK APPLY 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C::%FUNCALL #'REMOVE #:G315 #:G316 #:G317 #:G318)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-directed-graph/6824059d5894b688291b87105094a07ae6ff7cf6/cl-directed-graph-20180501-git/src.lisp
; in: DEFUN MAP-EDGES
;     (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::X)
;           CL-DIRECTED-GRAPH::RESULT)
; 
; caught ERROR:
;   during macroexpansion of (PUSH (FUNCALL FUNCTION K ...) RESULT). Use *BREAK-ON-SIGNALS* to intercept.
;    RESULT is read-only in this environment

;     (MAPC
;      (LAMBDA (CL-DIRECTED-GRAPH::X)
;        (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::X)
;              CL-DIRECTED-GRAPH::RESULT))
;      CL-DIRECTED-GRAPH::V)
; --> LET LET SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY FUNCALL 
; ==>
;   (SB-C::%FUNCALL
;    (LAMBDA (CL-DIRECTED-GRAPH::X)
;      (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::X)
;            CL-DIRECTED-GRAPH::RESULT))
;    (CAR #:G12))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.

;     (LAMBDA (CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::V)
;       (MAPC
;        (LAMBDA (CL-DIRECTED-GRAPH::X)
;          (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::X)
;                CL-DIRECTED-GRAPH::RESULT))
;        CL-DIRECTED-GRAPH::V))
; ==>
;   #'(LAMBDA (CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::V)
;       (MAPC
;        (LAMBDA (CL-DIRECTED-GRAPH::X)
;          (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::X)
;                CL-DIRECTED-GRAPH::RESULT))
;        CL-DIRECTED-GRAPH::V))
; 
; caught STYLE-WARNING:
;   The variable K is defined but never used.

;     (DEFUN CL-DIRECTED-GRAPH:MAP-EDGES (FUNCTION CL-DIRECTED-GRAPH:GRAPH)
;       "Returns a list of the results of calling FUNCTION on each edge of GRAPH.
;   FUNCTION should take 2 arguments: the starting and ending vertices of an edge."
;       (SERAPEUM:LRET ((CL-DIRECTED-GRAPH::RESULT (LIST)))
;         (MAPHASH
;          (LAMBDA (CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::V)
;            (MAPC # CL-DIRECTED-GRAPH::V))
;          (CL-DIRECTED-GRAPH::EDGES CL-DIRECTED-GRAPH:GRAPH))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-DIRECTED-GRAPH:MAP-EDGES
;         #'CL-DIRECTED-GRAPH:GRAPH
;       "Returns a list of the results of calling FUNCTION on each edge of GRAPH.
; FUNCTION should take 2 arguments: the starting and ending vertices of an edge."
;       (BLOCK CL-DIRECTED-GRAPH:MAP-EDGES
;         (SERAPEUM:LRET ((CL-DIRECTED-GRAPH::RESULT #))
;           (MAPHASH (LAMBDA # #)
;                    (CL-DIRECTED-GRAPH::EDGES CL-DIRECTED-GRAPH:GRAPH)))))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-directed-graph/6824059d5894b688291b87105094a07ae6ff7cf6/cl-directed-graph-20180501-git/src.lisp
; in: DEFUN MAP-DEPTH-FIRST
;     (CL-DIRECTED-GRAPH::TRAVERSE
;       (CL-DIRECTED-GRAPH::TRAV CL-DIRECTED-GRAPH::X))
; --> PROGN COND OR LET IF THE PROGN 
; ==>
;   (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::VERTEX) CL-DIRECTED-GRAPH::RESULT)
; 
; caught ERROR:
;   during macroexpansion of (PUSH (FUNCALL FUNCTION VERTEX) RESULT). Use *BREAK-ON-SIGNALS* to intercept.
;    RESULT is read-only in this environment

;     (DEFUN CL-DIRECTED-GRAPH:MAP-DEPTH-FIRST (FUNCTION CL-DIRECTED-GRAPH:GRAPH)
;       "Returns a list of the results of calling FUNCTION on each vertex of GRAPH
;   in depth-first traversal order."
;       (SERAPEUM:LRET ((CL-DIRECTED-GRAPH::SEEN (LIST))
;                       (CL-DIRECTED-GRAPH::RESULT (LIST)))
;         (LABELS ((CL-DIRECTED-GRAPH::TRAV #
;                    #))
;           (CL-DIRECTED-GRAPH:MAP-VERTICES #'CL-DIRECTED-GRAPH::TRAV
;            CL-DIRECTED-GRAPH:GRAPH))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-DIRECTED-GRAPH:MAP-DEPTH-FIRST
;         #'CL-DIRECTED-GRAPH:GRAPH
;       "Returns a list of the results of calling FUNCTION on each vertex of GRAPH
; in depth-first traversal order."
;       (BLOCK CL-DIRECTED-GRAPH:MAP-DEPTH-FIRST
;         (SERAPEUM:LRET ((CL-DIRECTED-GRAPH::SEEN #)
;                         (CL-DIRECTED-GRAPH::RESULT #))
;           (LABELS (#)
;             (CL-DIRECTED-GRAPH:MAP-VERTICES #'CL-DIRECTED-GRAPH::TRAV
;              CL-DIRECTED-GRAPH:GRAPH)))))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-directed-graph/6824059d5894b688291b87105094a07ae6ff7cf6/cl-directed-graph-20180501-git/src.lisp
; in: DEFUN MAP-BREADTH-FIRST
;     (CL-DIRECTED-GRAPH::TRAVERSE
;       (PUSH CL-DIRECTED-GRAPH::X CL-DIRECTED-GRAPH::SEEN)
;       (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::X) CL-DIRECTED-GRAPH::RESULT))
; --> PROGN COND OR LET IF THE PROGN 
; ==>
;   (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::VERTEX) CL-DIRECTED-GRAPH::RESULT)
; 
; caught ERROR:
;   during macroexpansion of (PUSH (FUNCALL FUNCTION VERTEX) RESULT). Use *BREAK-ON-SIGNALS* to intercept.
;    RESULT is read-only in this environment

;     (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::X) CL-DIRECTED-GRAPH::RESULT)
; 
; caught ERROR:
;   during macroexpansion of (PUSH (FUNCALL FUNCTION X) RESULT). Use *BREAK-ON-SIGNALS* to intercept.
;    RESULT is read-only in this environment

;     (DEFUN CL-DIRECTED-GRAPH:MAP-BREADTH-FIRST (FUNCTION CL-DIRECTED-GRAPH:GRAPH)
;       "Returns a list of the results of calling FUNCTION on each vertex of GRAPH
;   in breadth-first traversal order."
;       (SERAPEUM:LRET ((CL-DIRECTED-GRAPH::SEEN (LIST))
;                       (CL-DIRECTED-GRAPH::RESULT (LIST)))
;         (FLET ((CL-DIRECTED-GRAPH::TRAV #
;                  #))
;           (CL-DIRECTED-GRAPH:MAP-VERTICES #'CL-DIRECTED-GRAPH::TRAV
;            CL-DIRECTED-GRAPH:GRAPH))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-DIRECTED-GRAPH:MAP-BREADTH-FIRST
;         #'CL-DIRECTED-GRAPH:GRAPH
;       "Returns a list of the results of calling FUNCTION on each vertex of GRAPH
; in breadth-first traversal order."
;       (BLOCK CL-DIRECTED-GRAPH:MAP-BREADTH-FIRST
;         (SERAPEUM:LRET ((CL-DIRECTED-GRAPH::SEEN #)
;                         (CL-DIRECTED-GRAPH::RESULT #))
;           (FLET (#)
;             (CL-DIRECTED-GRAPH:MAP-VERTICES #'CL-DIRECTED-GRAPH::TRAV
;              CL-DIRECTED-GRAPH:GRAPH)))))
; 
; caught STYLE-WARNING:
;   The variable FUNCTION is defined but never used.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-directed-graph" "src">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10053C7753}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10053C7753}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10053C7753}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-directed-graph" "src">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-directed-graph" "src">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-directed-graph" "src">)
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 > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-directed-graph" "src">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058F93C3}>) [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 {10058F93C3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-directed-graph"> :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-directed-graph">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-directed-graph">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-directed-graph")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-directed-graph") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058F394B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058B069B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-directed-graph") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-directed-graph" "cl-directed-graph")
23: (DEPCHECK::MAGIC "cl-directed-graph" "cl-directed-graph" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-NLCJG2Uf/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-directed-graph" "cl-directed-graph" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-NLCJG2Uf/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-NLCJG2Uf/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 4 ERROR conditions
;   caught 13 STYLE-WARNING conditions
;   printed 120 notes