cl-redis

SBCL 2.0.5 / ASDF 3.3.1

cl-redis

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-redis/e2d90d578b588fc9ca4af915ef4dca8609b8ab6b/cl-redis-20200613-git/cl-redis.asd" contains definition for system "cl-redis-test". Please only define "cl-redis" and secondary systems with a name starting with "cl-redis/" (e.g. "cl-redis/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20200613-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/f3246e8db85c807c6011fb28de887286ed68b28a/flexi-streams-20200613-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
STYLE-WARNING: VOID is being redefined as a macro when it was previously assumed to be a function.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN GENVAR
;     (INCF RUTILS.ITER::*GENVAR-COUNTER*)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::*GENVAR-COUNTER*)
; 
; 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 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN SPECIAL-FORM?
;     (ASSOC SYMBOL RUTILS.ITER::*SPECIAL-FORM-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN WALK-SPECIAL-FORM
;     (STRING (CAR RUTILS.ITER::FORM))
; 
; 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.

;     (ASSOC
;      (IF (KEYWORDP (CAR RUTILS.ITER::FORM))
;          (FIND-SYMBOL (STRING (CAR RUTILS.ITER::FORM)) 'RUTILS.ITER::RUTILS.ITER)
;          (CAR RUTILS.ITER::FORM))
;      RUTILS.ITER::*SPECIAL-FORM-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

;     (APPLY RUTILS.ITER::FUNC RUTILS.ITER::FORM)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.ITER::FUNC)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FUNC is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN WALK-SETQ
;     (INCF RUTILS.ITER::I)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN PROCESS-CLAUSE
;     (ASSOC (CAR RUTILS.ITER::CLAUSE) RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN DISPLAY-KWS
;     (= RUTILS.ITER::COL 1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ RUTILS.ITER::COL 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (INCF RUTILS.ITER::COL)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::COL)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ RUTILS.ITER::COL RUTILS.ITER::LEN)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The 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.

;     (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.

;     (INCF RUTILS.ITER::COL RUTILS.ITER::LEN)
; --> SETQ THE 
; ==>
;   (+ RUTILS.ITER::LEN RUTILS.ITER::COL)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second 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 second 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.

;     (+ RUTILS.ITER::COL 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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).
;       etc.

;     (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.

;     (INCF RUTILS.ITER::COL)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::COL)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN CLAUSE-MATCHES?
;     (EVERY #'EQ RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS)
; --> BLOCK SB-INT:DX-FLET FLET 
; ==>
;   (SB-KERNEL:%MAP NIL #'#:WRAPPER4 RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS)
; 
; note: unable to open code because: can't determine sequence argument type

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN STARTS-CLAUSE?
;     (ASSOC SYMBOL RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN AMBIGUITY-CHECK-CLAUSE
;     (= RUTILS.ITER::INSERT-N 2)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN AMBIGUOUS-CLAUSES?
;     (LENGTH RUTILS.ITER::RK1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (MEMBER RUTILS.ITER::K2 RUTILS.ITER::OK1)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; in: DEFUN DISPLAY-INDEX
;     (+ RUTILS.ITER::INDENT 2)
; 
; 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 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; in: DEFUN REMOVE-CLAUSE
;     (DELETE RUTILS.ITER::ENTRY (CDR RUTILS.ITER::INDEX))
; 
; note: unable to convert to EQ test due to type uncertainty: The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to convert to EQ test due to type uncertainty: The second argument is a SEQUENCE, not a LIST.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN SPLIT-CLAUSE-TEMPLATE
;     (LENGTH RUTILS.ITER::OPT-LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN MAKE-ACCUM-VAR-BINDING-INTERNAL
;     (ASSOC RUTILS.ITER::VAR RUTILS.ITER::*BINDINGS*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN MAKE-SHARED-BINDING
;     (STRING RUTILS.ITER::VAR)
; 
; 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/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN LOCAL-BINDING-CHECK
;     (LENGTH RUTILS.ITER::IT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN INSTALL-SPECIAL-CLAUSE-FUNCTION
;     (ASSOC RUTILS.ITER::KEY-SYMBOL RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFCLAUSE-DRIVER (:FOR VAR-SPEC &SEQUENCE)
;     (RUTILS.ITER:DEFCLAUSE-DRIVER (:FOR RUTILS.ITER::VAR-SPEC
;                                    RUTILS.ITER::&SEQUENCE)
;       "General FOR clause."
;       (RUTILS.ITER::TOP-LEVEL-CHECK)
;       (WHEN RUTILS.ITER::WITH-INDEX
;         (RUTILS.ITER::CLAUSE-ERROR
;          "WITH-INDEX should not be specified for this clause"))
;       (RUTILS.ITER::CHECK-SEQUENCE-KEYWORDS RUTILS.ITER::FROM RUTILS.ITER::UPFROM
;        RUTILS.ITER::DOWNFROM RUTILS.ITER::TO RUTILS.ITER::DOWNTO
;        RUTILS.ITER::ABOVE RUTILS.ITER::BELOW NIL)
;       (RUTILS.ITER::MAKE-DEFAULT-BINDING RUTILS.ITER::VAR-SPEC :TYPE 'NUMBER)
;       (LET* ((RUTILS.ITER::VAR (RUTILS.ITER::EXTRACT-VAR RUTILS.ITER::VAR-SPEC))
;              (RUTILS.ITER::INITIAL
;               (OR RUTILS.ITER::FROM RUTILS.ITER::UPFROM RUTILS.ITER::DOWNFROM 0))
;              (RUTILS.ITER::LIMIT
;               (OR RUTILS.ITER::TO RUTILS.ITER::DOWNTO RUTILS.ITER::ABOVE
;                   RUTILS.ITER::BELOW))
;              (RUTILS.ITER::STEP-FUNC
;               (IF #
;                   '-
;                   '+))
;              (RUTILS.ITER::TEST-FUNC (COND # # # #))
;              (RUTILS.ITER::LIMIT-VAR (WHEN # #))
;              (RUTILS.ITER::STEP-VAR (UNLESS # #))
;              (RUTILS.ITER::STEP-THING (OR RUTILS.ITER::STEP-VAR RUTILS.ITER::BY))
;              (RUTILS.ITER::LIMIT-CODE
;               (OR RUTILS.ITER::LIMIT-VAR RUTILS.ITER::LIMIT))
;              (RUTILS.ITER::INIT-VAL (RUTILS.ITER::EVAL-CONST-EXPR #))
;              (RUTILS.ITER::TEST (WHEN RUTILS.ITER::LIMIT # `#))
;              (RUTILS.ITER::NEXT `(# . ,RUTILS.ITER::TEST)))
;         (RUTILS.ITER::RETURN-DRIVER-CODE :INITIAL
;                                          `(,.(WHEN RUTILS.ITER::LIMIT-VAR `#)
;                                            ,.(WHEN RUTILS.ITER::STEP-VAR `#)
;                                            (SETQ #))
;                                          :NEXT RUTILS.ITER::NEXT :VARIABLE
;                                          RUTILS.ITER::VAR)))
; 
; caught ERROR:
;   The variable BY occurs more than once in the lambda list.
Unhandled SB-INT:SIMPLE-PROGRAM-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>: The variable BY occurs more than once in the lambda list.

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {100CDEE153}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {100CDEE153}>)
2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {100CDEE153}>)
3: (ERROR #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {100CDEE153}>)
4: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;TARGET-MAIN.LISP"))
5: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
6: (SB-C:COMPILE-IN-LEXENV (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR)))) #<NULL-LEXENV> NIL #<SB-C::SOURCE-INFO {1006911C73}> 175 NIL T)
7: (SB-IMPL::%SIMPLE-EVAL (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR)))) #<NULL-LEXENV>)
8: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR)))) #<NULL-LEXENV>)
9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* (# # # # # # # # # # # #) (RETURN-DRIVER-CODE :INITIAL # :NEXT NEXT :VARIABLE VAR))))) #<NULL-LEXENV>)
10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) #<NULL-LEXENV>)
11: (SB-EXT:EVAL-TLF (PROGN (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) 175 #<NULL-LEXENV>)
12: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
13: (SB-C::EVAL-COMPILE-TOPLEVEL ((SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) (#1=(SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 #2=(&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) #3="General FOR clause." (BLOCK CLAUSE-FOR-2 . #4=(# # # # #)))) (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) #1#) #5=(DEFUN CLAUSE-FOR-2 #2# #3# . #4#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #6=(#5# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #3# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #6#) SB-C::ORIGINAL-SOURCE-START 0 175))
14: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* (# # # # # # # # # # # #) (RETURN-DRIVER-CODE :INITIAL # :NEXT NEXT :VARIABLE VAR))))) ((PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 #1=(&KEY # # # # # # # # # # # ...) (DECLARE #) #2="General FOR clause." (BLOCK CLAUSE-FOR-2 . #3=#)))) #4=(DEFUN CLAUSE-FOR-2 #1# #2# . #3#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #5=(#4# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #5#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
15: (SB-C::PROCESS-TOPLEVEL-PROGN ((EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) ((PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 #1=(&KEY # # # # # # # # # # # ...) (DECLARE #) #2="General FOR clause." (BLOCK CLAUSE-FOR-2 . #3=#)))) #4=(DEFUN CLAUSE-FOR-2 #1# #2# . #3#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #5=(#4# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #5#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
16: (SB-C::PROCESS-TOPLEVEL-FORM (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) (#1=(DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #2="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #3=(#1# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #3#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
17: (SB-C::PROCESS-TOPLEVEL-FORM (DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) "General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR (EXTRACT-VAR VAR-SPEC)) (INITIAL (OR FROM UPFROM DOWNFROM 0)) (LIMIT (OR TO DOWNTO ABOVE BELOW)) (STEP-FUNC (IF # # #)) (TEST-FUNC (COND # # # #)) (LIMIT-VAR (WHEN # #)) (STEP-VAR (UNLESS # #)) (STEP-THING (OR STEP-VAR BY)) (LIMIT-CODE (OR LIMIT-VAR LIMIT)) (INIT-VAL (EVAL-CONST-EXPR #)) (TEST (WHEN LIMIT # #)) (NEXT (SB-INT:QUASIQUOTE #))) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE (# # #)) :NEXT NEXT :VARIABLE VAR))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #1=((DEFUN CLAUSE-FOR-2 (&KEY # # # # # # # # # # # ...) #2="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #)) (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #1#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
18: (SB-C::PROCESS-TOPLEVEL-PROGN ((DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #1=((DEFUN CLAUSE-FOR-2 (&KEY # # # # # # # # # # # ...) #2="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #)) (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #1#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
19: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) ((EVAL-ALWAYS (DEFUN CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* (# # # # # # # # # # # #) (RETURN-DRIVER-CODE :INITIAL # :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) SB-C::ORIGINAL-SOURCE-START 0 175) NIL)
20: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-ALWAYS (DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) (SB-C::ORIGINAL-SOURCE-START 0 175) NIL)
21: (SB-C::PROCESS-TOPLEVEL-FORM (DEFCLAUSE-DRIVER (:FOR VAR-SPEC &SEQUENCE) "General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR (EXTRACT-VAR VAR-SPEC)) (INITIAL (OR FROM UPFROM DOWNFROM 0)) (LIMIT (OR TO DOWNTO ABOVE BELOW)) (STEP-FUNC (IF # # #)) (TEST-FUNC (COND # # # #)) (LIMIT-VAR (WHEN # #)) (STEP-VAR (UNLESS # #)) (STEP-THING (OR STEP-VAR BY)) (LIMIT-CODE (OR LIMIT-VAR LIMIT)) (INIT-VAL (EVAL-CONST-EXPR #)) (TEST (WHEN LIMIT # #)) (NEXT (SB-INT:QUASIQUOTE #))) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE (# # #)) :NEXT NEXT :VARIABLE VAR))) (SB-C::ORIGINAL-SOURCE-START 0 175) NIL)
22: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (DEFCLAUSE-DRIVER (:FOR VAR-SPEC &SEQUENCE) "General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR (EXTRACT-VAR VAR-SPEC)) (INITIAL (OR FROM UPFROM DOWNFROM 0)) (LIMIT (OR TO DOWNTO ABOVE BELOW)) (STEP-FUNC (IF # # #)) (TEST-FUNC (COND # # # #)) (LIMIT-VAR (WHEN # #)) (STEP-VAR (UNLESS # #)) (STEP-THING (OR STEP-VAR BY)) (LIMIT-CODE (OR LIMIT-VAR LIMIT)) (INIT-VAL (EVAL-CONST-EXPR #)) (TEST (WHEN LIMIT # #)) (NEXT (SB-INT:QUASIQUOTE #))) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE (# # #)) :NEXT NEXT :VARIABLE VAR))) :CURRENT-INDEX 175)
23: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {522637DB}> #<SB-C::SOURCE-INFO {1006911C73}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
24: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
25: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
26: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7EFF464FE74B}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>> T NIL)
27: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;MAIN.LISP"))
28: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
29: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {1006911C73}> NIL)
30: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (203)) /home/quicklisp/.cache/common-lisp/sbcl-2.0.5-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter-tmpGHU3ALSV.f... {100CEFD19F}> :VERBOSE NIL :PRINT NIL :PROGRESS NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL)
31: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100690F64B}> NIL)
32: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100690F5CB}>)
33: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-2.0.5-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
34: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "iter">)
35: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "iter">)
36: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
37: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "iter">) [fast-method]
38: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100576AD03}>) [fast-method]
39: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
40: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100576AD03}>) [fast-method]
41: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-redis"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
42: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-redis">)
43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
44: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-redis">) [fast-method]
45: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-redis")
46: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
47: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-redis") [fast-method]
48: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100576679B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
49: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
50: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100572357B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
51: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-redis") [fast-method]
52: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-redis" "cl-redis")
53: (DEPCHECK::MAGIC "cl-redis" "cl-redis" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-9xdJsxDl/depcheck-win.txt")
54: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-redis" "cl-redis" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-9xdJsxDl/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-9xdJsxDl/depcheck-fail.txt"))
55: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
56: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
57: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SB-EXT:SAVE-LISP-AND-DIE))
58: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

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

cl-redis-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-redis/e2d90d578b588fc9ca4af915ef4dca8609b8ab6b/cl-redis-20200613-git/cl-redis.asd" contains definition for system "cl-redis-test". Please only define "cl-redis" and secondary systems with a name starting with "cl-redis/" (e.g. "cl-redis/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-redis/e2d90d578b588fc9ca4af915ef4dca8609b8ab6b/cl-redis-20200613-git/cl-redis.asd" contains definition for system "cl-redis-test". Please only define "cl-redis" and secondary systems with a name starting with "cl-redis/" (e.g. "cl-redis/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-redis/e2d90d578b588fc9ca4af915ef4dca8609b8ab6b/cl-redis-20200613-git/cl-redis.asd" contains definition for system "cl-redis-test". Please only define "cl-redis" and secondary systems with a name starting with "cl-redis/" (e.g. "cl-redis/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20200613-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/f3246e8db85c807c6011fb28de887286ed68b28a/flexi-streams-20200613-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/6a672a245e7ad55311ceaa8722aae0f1f0b2d5fd/cl-fad-20200613-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN
WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN
WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN
WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN
WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN
WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN
WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::LOOP* in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN
WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO
WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO
WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO
WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN
WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO
WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO
WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN
WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO
WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO
WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN
WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN
WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN
WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN
WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN
WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN
WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO
WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN
WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN
WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN
WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN
WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN
WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN
WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION< in DEFUN
WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN
WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN
WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN
WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO
WARNING: redefining UIOP/OS:FEATUREP in DEFUN
WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN
WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN
WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN
WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN
WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN
WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN
WARNING: redefining UIOP/OS:DETECT-OS in DEFUN
WARNING: redefining UIOP/OS:OS-COND in DEFMACRO
WARNING: redefining UIOP/OS:GETENV in DEFUN
WARNING: redefining UIOP/OS:GETENVP in DEFUN
WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN
WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN
WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN
WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN
WARNING: redefining UIOP/OS:HOSTNAME in DEFUN
WARNING: redefining UIOP/OS:GETCWD in DEFUN
WARNING: redefining UIOP/OS:CHDIR in DEFUN
WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN
WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN
WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN
WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN
WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN
WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO
WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN
WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN
WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN
WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO
WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO
WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN
WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN
WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN
WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN
WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN
WARNING: redefining UIOP/STREAM:WRITELN in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN
WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO
WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN
WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN
WARNING: redefining UIOP/IMAGE:QUIT in DEFUN
WARNING: redefining UIOP/IMAGE:DIE in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN
WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN
WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO
WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN
WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN
STYLE-WARNING: VOID is being redefined as a macro when it was previously assumed to be a function.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN GENVAR
;     (INCF RUTILS.ITER::*GENVAR-COUNTER*)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::*GENVAR-COUNTER*)
; 
; 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 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN SPECIAL-FORM?
;     (ASSOC SYMBOL RUTILS.ITER::*SPECIAL-FORM-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN WALK-SPECIAL-FORM
;     (STRING (CAR RUTILS.ITER::FORM))
; 
; 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.

;     (ASSOC
;      (IF (KEYWORDP (CAR RUTILS.ITER::FORM))
;          (FIND-SYMBOL (STRING (CAR RUTILS.ITER::FORM)) 'RUTILS.ITER::RUTILS.ITER)
;          (CAR RUTILS.ITER::FORM))
;      RUTILS.ITER::*SPECIAL-FORM-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

;     (APPLY RUTILS.ITER::FUNC RUTILS.ITER::FORM)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.ITER::FUNC)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FUNC is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN WALK-SETQ
;     (INCF RUTILS.ITER::I)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN PROCESS-CLAUSE
;     (ASSOC (CAR RUTILS.ITER::CLAUSE) RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN DISPLAY-KWS
;     (= RUTILS.ITER::COL 1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ RUTILS.ITER::COL 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (INCF RUTILS.ITER::COL)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::COL)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ RUTILS.ITER::COL RUTILS.ITER::LEN)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The 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.

;     (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.

;     (INCF RUTILS.ITER::COL RUTILS.ITER::LEN)
; --> SETQ THE 
; ==>
;   (+ RUTILS.ITER::LEN RUTILS.ITER::COL)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second 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 second 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.

;     (+ RUTILS.ITER::COL 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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).
;       etc.

;     (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.

;     (INCF RUTILS.ITER::COL)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::COL)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN CLAUSE-MATCHES?
;     (EVERY #'EQ RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS)
; --> BLOCK SB-INT:DX-FLET FLET 
; ==>
;   (SB-KERNEL:%MAP NIL #'#:WRAPPER4 RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS)
; 
; note: unable to open code because: can't determine sequence argument type

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN STARTS-CLAUSE?
;     (ASSOC SYMBOL RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN AMBIGUITY-CHECK-CLAUSE
;     (= RUTILS.ITER::INSERT-N 2)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN AMBIGUOUS-CLAUSES?
;     (LENGTH RUTILS.ITER::RK1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (MEMBER RUTILS.ITER::K2 RUTILS.ITER::OK1)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; in: DEFUN DISPLAY-INDEX
;     (+ RUTILS.ITER::INDENT 2)
; 
; 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 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; in: DEFUN REMOVE-CLAUSE
;     (DELETE RUTILS.ITER::ENTRY (CDR RUTILS.ITER::INDEX))
; 
; note: unable to convert to EQ test due to type uncertainty: The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to convert to EQ test due to type uncertainty: The second argument is a SEQUENCE, not a LIST.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN SPLIT-CLAUSE-TEMPLATE
;     (LENGTH RUTILS.ITER::OPT-LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN MAKE-ACCUM-VAR-BINDING-INTERNAL
;     (ASSOC RUTILS.ITER::VAR RUTILS.ITER::*BINDINGS*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN MAKE-SHARED-BINDING
;     (STRING RUTILS.ITER::VAR)
; 
; 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/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN LOCAL-BINDING-CHECK
;     (LENGTH RUTILS.ITER::IT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFUN INSTALL-SPECIAL-CLAUSE-FUNCTION
;     (ASSOC RUTILS.ITER::KEY-SYMBOL RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp
; in: DEFCLAUSE-DRIVER (:FOR VAR-SPEC &SEQUENCE)
;     (RUTILS.ITER:DEFCLAUSE-DRIVER (:FOR RUTILS.ITER::VAR-SPEC
;                                    RUTILS.ITER::&SEQUENCE)
;       "General FOR clause."
;       (RUTILS.ITER::TOP-LEVEL-CHECK)
;       (WHEN RUTILS.ITER::WITH-INDEX
;         (RUTILS.ITER::CLAUSE-ERROR
;          "WITH-INDEX should not be specified for this clause"))
;       (RUTILS.ITER::CHECK-SEQUENCE-KEYWORDS RUTILS.ITER::FROM RUTILS.ITER::UPFROM
;        RUTILS.ITER::DOWNFROM RUTILS.ITER::TO RUTILS.ITER::DOWNTO
;        RUTILS.ITER::ABOVE RUTILS.ITER::BELOW NIL)
;       (RUTILS.ITER::MAKE-DEFAULT-BINDING RUTILS.ITER::VAR-SPEC :TYPE 'NUMBER)
;       (LET* ((RUTILS.ITER::VAR (RUTILS.ITER::EXTRACT-VAR RUTILS.ITER::VAR-SPEC))
;              (RUTILS.ITER::INITIAL
;               (OR RUTILS.ITER::FROM RUTILS.ITER::UPFROM RUTILS.ITER::DOWNFROM 0))
;              (RUTILS.ITER::LIMIT
;               (OR RUTILS.ITER::TO RUTILS.ITER::DOWNTO RUTILS.ITER::ABOVE
;                   RUTILS.ITER::BELOW))
;              (RUTILS.ITER::STEP-FUNC
;               (IF #
;                   '-
;                   '+))
;              (RUTILS.ITER::TEST-FUNC (COND # # # #))
;              (RUTILS.ITER::LIMIT-VAR (WHEN # #))
;              (RUTILS.ITER::STEP-VAR (UNLESS # #))
;              (RUTILS.ITER::STEP-THING (OR RUTILS.ITER::STEP-VAR RUTILS.ITER::BY))
;              (RUTILS.ITER::LIMIT-CODE
;               (OR RUTILS.ITER::LIMIT-VAR RUTILS.ITER::LIMIT))
;              (RUTILS.ITER::INIT-VAL (RUTILS.ITER::EVAL-CONST-EXPR #))
;              (RUTILS.ITER::TEST (WHEN RUTILS.ITER::LIMIT # `#))
;              (RUTILS.ITER::NEXT `(# . ,RUTILS.ITER::TEST)))
;         (RUTILS.ITER::RETURN-DRIVER-CODE :INITIAL
;                                          `(,.(WHEN RUTILS.ITER::LIMIT-VAR `#)
;                                            ,.(WHEN RUTILS.ITER::STEP-VAR `#)
;                                            (SETQ #))
;                                          :NEXT RUTILS.ITER::NEXT :VARIABLE
;                                          RUTILS.ITER::VAR)))
; 
; caught ERROR:
;   The variable BY occurs more than once in the lambda list.
Unhandled SB-INT:SIMPLE-PROGRAM-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>: The variable BY occurs more than once in the lambda list.

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {10033E1C93}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {10033E1C93}>)
2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {10033E1C93}>)
3: (ERROR #<SB-INT:SIMPLE-PROGRAM-ERROR "~@<The ~A ~S occurs more than once in ~
                             the ~A.~@:>" {10033E1C93}>)
4: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;TARGET-MAIN.LISP"))
5: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
6: (SB-C:COMPILE-IN-LEXENV (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR)))) #<NULL-LEXENV> NIL #<SB-C::SOURCE-INFO {1009B434A3}> 175 NIL T)
7: (SB-IMPL::%SIMPLE-EVAL (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR)))) #<NULL-LEXENV>)
8: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR)))) #<NULL-LEXENV>)
9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* (# # # # # # # # # # # #) (RETURN-DRIVER-CODE :INITIAL # :NEXT NEXT :VARIABLE VAR))))) #<NULL-LEXENV>)
10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) #<NULL-LEXENV>)
11: (SB-EXT:EVAL-TLF (PROGN (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) 175 #<NULL-LEXENV>)
12: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
13: (SB-C::EVAL-COMPILE-TOPLEVEL ((SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) (#1=(SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 #2=(&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) #3="General FOR clause." (BLOCK CLAUSE-FOR-2 . #4=(# # # # #)))) (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) #1#) #5=(DEFUN CLAUSE-FOR-2 #2# #3# . #4#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #6=(#5# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #3# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #6#) SB-C::ORIGINAL-SOURCE-START 0 175))
14: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* (# # # # # # # # # # # #) (RETURN-DRIVER-CODE :INITIAL # :NEXT NEXT :VARIABLE VAR))))) ((PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 #1=(&KEY # # # # # # # # # # # ...) (DECLARE #) #2="General FOR clause." (BLOCK CLAUSE-FOR-2 . #3=#)))) #4=(DEFUN CLAUSE-FOR-2 #1# #2# . #3#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #5=(#4# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #5#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
15: (SB-C::PROCESS-TOPLEVEL-PROGN ((EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) ((PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 #1=(&KEY # # # # # # # # # # # ...) (DECLARE #) #2="General FOR clause." (BLOCK CLAUSE-FOR-2 . #3=#)))) #4=(DEFUN CLAUSE-FOR-2 #1# #2# . #3#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #5=(#4# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #5#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
16: (SB-C::PROCESS-TOPLEVEL-FORM (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE CLAUSE-FOR-2) T NIL NIL)) (SB-IMPL::%DEFUN (QUOTE CLAUSE-FOR-2) (SB-INT:NAMED-LAMBDA CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) (DECLARE (SB-C::TOP-LEVEL-FORM)) "General FOR clause." (BLOCK CLAUSE-FOR-2 (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #))))) (#1=(DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #2="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #3=(#1# (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #3#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
17: (SB-C::PROCESS-TOPLEVEL-FORM (DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) "General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR (EXTRACT-VAR VAR-SPEC)) (INITIAL (OR FROM UPFROM DOWNFROM 0)) (LIMIT (OR TO DOWNTO ABOVE BELOW)) (STEP-FUNC (IF # # #)) (TEST-FUNC (COND # # # #)) (LIMIT-VAR (WHEN # #)) (STEP-VAR (UNLESS # #)) (STEP-THING (OR STEP-VAR BY)) (LIMIT-CODE (OR LIMIT-VAR LIMIT)) (INIT-VAL (EVAL-CONST-EXPR #)) (TEST (WHEN LIMIT # #)) (NEXT (SB-INT:QUASIQUOTE #))) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE (# # #)) :NEXT NEXT :VARIABLE VAR))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #1=((DEFUN CLAUSE-FOR-2 (&KEY # # # # # # # # # # # ...) #2="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #)) (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #1#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
18: (SB-C::PROCESS-TOPLEVEL-PROGN ((DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) . #1=((DEFUN CLAUSE-FOR-2 (&KEY # # # # # # # # # # # ...) #2="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX #) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE #) (LET* # #)) (INSTALL-CLAUSE-INFO (QUOTE #) (QUOTE #) (QUOTE CLAUSE-FOR-2) #2# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...)))) (EVAL-ALWAYS . #1#) SB-C::ORIGINAL-SOURCE-START 0 175) (:COMPILE-TOPLEVEL))
19: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) ((EVAL-ALWAYS (DEFUN CLAUSE-FOR-2 (&KEY (#) (#) (#) (#) (#) (#) (#) (#) (#) (# 1) (#) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* (# # # # # # # # # # # #) (RETURN-DRIVER-CODE :INITIAL # :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) SB-C::ORIGINAL-SOURCE-START 0 175) NIL)
20: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-ALWAYS (DEFUN CLAUSE-FOR-2 (&KEY ((:FOR VAR-SPEC)) ((:FROM FROM)) ((:UPFROM UPFROM)) ((:DOWNFROM DOWNFROM)) ((:TO TO)) ((:DOWNTO DOWNTO)) ((:ABOVE ABOVE)) ((:BELOW BELOW)) ((:BY BY)) ((:|(BY 1)| BY) 1) ((:WITH-INDEX WITH-INDEX)) ...) #1="General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR #) (INITIAL #) (LIMIT #) (STEP-FUNC #) (TEST-FUNC #) (LIMIT-VAR #) (STEP-VAR #) (STEP-THING #) (LIMIT-CODE #) (INIT-VAL #) (TEST #) (NEXT #)) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE #) :NEXT NEXT :VARIABLE VAR))) (INSTALL-CLAUSE-INFO (QUOTE (:FOR)) (QUOTE (:FOR &OPTIONAL :FROM :UPFROM :DOWNFROM :TO :DOWNTO :ABOVE :BELOW :BY :|(BY 1)| :WITH-INDEX)) (QUOTE CLAUSE-FOR-2) #1# T) (QUOTE (:FOR VAR-SPEC &OPTIONAL :FROM FROM :UPFROM UPFROM :DOWNFROM DOWNFROM :TO TO :DOWNTO ...))) (SB-C::ORIGINAL-SOURCE-START 0 175) NIL)
21: (SB-C::PROCESS-TOPLEVEL-FORM (DEFCLAUSE-DRIVER (:FOR VAR-SPEC &SEQUENCE) "General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR (EXTRACT-VAR VAR-SPEC)) (INITIAL (OR FROM UPFROM DOWNFROM 0)) (LIMIT (OR TO DOWNTO ABOVE BELOW)) (STEP-FUNC (IF # # #)) (TEST-FUNC (COND # # # #)) (LIMIT-VAR (WHEN # #)) (STEP-VAR (UNLESS # #)) (STEP-THING (OR STEP-VAR BY)) (LIMIT-CODE (OR LIMIT-VAR LIMIT)) (INIT-VAL (EVAL-CONST-EXPR #)) (TEST (WHEN LIMIT # #)) (NEXT (SB-INT:QUASIQUOTE #))) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE (# # #)) :NEXT NEXT :VARIABLE VAR))) (SB-C::ORIGINAL-SOURCE-START 0 175) NIL)
22: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (DEFCLAUSE-DRIVER (:FOR VAR-SPEC &SEQUENCE) "General FOR clause." (TOP-LEVEL-CHECK) (WHEN WITH-INDEX (CLAUSE-ERROR "WITH-INDEX should not be specified for this clause")) (CHECK-SEQUENCE-KEYWORDS FROM UPFROM DOWNFROM TO DOWNTO ABOVE BELOW NIL) (MAKE-DEFAULT-BINDING VAR-SPEC :TYPE (QUOTE NUMBER)) (LET* ((VAR (EXTRACT-VAR VAR-SPEC)) (INITIAL (OR FROM UPFROM DOWNFROM 0)) (LIMIT (OR TO DOWNTO ABOVE BELOW)) (STEP-FUNC (IF # # #)) (TEST-FUNC (COND # # # #)) (LIMIT-VAR (WHEN # #)) (STEP-VAR (UNLESS # #)) (STEP-THING (OR STEP-VAR BY)) (LIMIT-CODE (OR LIMIT-VAR LIMIT)) (INIT-VAL (EVAL-CONST-EXPR #)) (TEST (WHEN LIMIT # #)) (NEXT (SB-INT:QUASIQUOTE #))) (RETURN-DRIVER-CODE :INITIAL (SB-INT:QUASIQUOTE (# # #)) :NEXT NEXT :VARIABLE VAR))) :CURRENT-INDEX 175)
23: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {522637DB}> #<SB-C::SOURCE-INFO {1009B434A3}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
24: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
25: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
26: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7F63E7A7674B}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1000A18083}>> T NIL)
27: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;MAIN.LISP"))
28: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
29: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {1009B434A3}> NIL)
30: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (203)) /home/quicklisp/.cache/common-lisp/sbcl-2.0.5-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter-tmpGHU3ALSV.f... {10034F879F}> :VERBOSE NIL :PRINT NIL :PROGRESS NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL)
31: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1009B40E8B}> NIL)
32: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1009B40E0B}>)
33: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.lisp" :OUTPUT-FILE #P"/home/quicklisp/.cache/common-lisp/sbcl-2.0.5-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/rutils/178efaa6924d8e4c06c5d424b9d85e41450c5d68/rutils-20200613-git/core/iter.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
34: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "iter">)
35: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "iter">)
36: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
37: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "iter">) [fast-method]
38: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058182D3}>) [fast-method]
39: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
40: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10058182D3}>) [fast-method]
41: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-redis-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
42: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-redis-test">)
43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
44: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-redis-test">) [fast-method]
45: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-redis-test")
46: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
47: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-redis-test") [fast-method]
48: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10058140BB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
49: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
50: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005811B1B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
51: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-redis-test") [fast-method]
52: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-redis" "cl-redis-test")
53: (DEPCHECK::MAGIC "cl-redis" "cl-redis-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4THpFz40/depcheck-win.txt")
54: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-redis" "cl-redis-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4THpFz40/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4THpFz40/depcheck-fail.txt"))
55: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
56: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
57: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SB-EXT:SAVE-LISP-AND-DIE))
58: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

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