transparent-wrap

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

transparent-wrap-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/transparent-wrap.asd" contains definition for system "transparent-wrap-test". Please only define "transparent-wrap" and secondary systems with a name starting with "transparent-wrap/" (e.g. "transparent-wrap/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/stefil/f974b02c814ebaaa804f2ecf4c86b0a18abfe6b2/stefil-20210922-git/stefil.asd" contains definition for system "stefil-test". Please only define "stefil" and secondary systems with a name starting with "stefil/" (e.g. "stefil/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-SPECIALIZED-LAMBDA-LIST
;     (DEFUN TRANSPARENT-WRAP::MATCH-SPECIALIZED-LAMBDA-LIST
;            (TRANSPARENT-WRAP::PARAMS)
;       (TRANSPARENT-WRAP::MATCH-SPECIALIZED-REQUIREDS (TRANSPARENT-WRAP::PARAMS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP::MATCH-SPECIALIZED-LAMBDA-LIST
;         (TRANSPARENT-WRAP::PARAMS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP::MATCH-SPECIALIZED-LAMBDA-LIST
;         (TRANSPARENT-WRAP::MATCH-SPECIALIZED-REQUIREDS
;          (TRANSPARENT-WRAP::PARAMS))))
; 
; caught STYLE-WARNING:
;   The variable PARAMS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-REQUIREDS
;     (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X)
; ==>
;   TRANSPARENT-WRAP::X
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &OPTIONAL)
;                               TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::LIST* (FARE-QUASIQUOTE::QUOTE &REST) REST
;                                TRANSPARENT-WRAP::X)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;               (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &KEY) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS TRANSPARENT-WRAP::X TRANSPARENT-WRAP::Y)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REQUIRED-PARAM :NAME TRANSPARENT-WRAP::X)
;               (TRANSPARENT-WRAP::MATCH-REQUIREDS TRANSPARENT-WRAP::Y)))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF 
; --> OPTIMA::%OR IF LET OPTIMA::%OR LET 
; ==>
;   (LET ((&OPTIONAL #:G7))
;     (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &OPTIONAL is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET OPTIMA::%OR 
; --> LET LET 
; ==>
;   (LET ((&REST #:G4))
;     (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;            (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
; 
; caught STYLE-WARNING:
;   The variable &REST is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET OPTIMA::%OR BLOCK TAGBODY RETURN-FROM 
; --> SYMBOL-MACROLET LET 
; ==>
;   (LET ((&KEY #:G2))
;     (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &KEY is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET TRANSPARENT-WRAP::CONSQUOTE 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK 
; --> TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET 
; --> TRANSPARENT-WRAP::CONSY 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET TRANSPARENT-WRAP::CONSX 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

;     (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X)
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &OPTIONAL)
;                               TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::LIST* (FARE-QUASIQUOTE::QUOTE &REST) REST
;                                TRANSPARENT-WRAP::X)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;               (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &KEY) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS TRANSPARENT-WRAP::X TRANSPARENT-WRAP::Y)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REQUIRED-PARAM :NAME TRANSPARENT-WRAP::X)
;               (TRANSPARENT-WRAP::MATCH-REQUIREDS TRANSPARENT-WRAP::Y)))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK 
; --> TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET 
; --> TRANSPARENT-WRAP::CONSX 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-SPECIALIZED-REQUIREDS
;     (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X)
; ==>
;   TRANSPARENT-WRAP::X
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &OPTIONAL)
;                               TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::LIST* (FARE-QUASIQUOTE::QUOTE &REST) REST
;                                TRANSPARENT-WRAP::X)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;               (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &KEY) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS TRANSPARENT-WRAP::X TRANSPARENT-WRAP::Y)
;        (LIST* (TRANSPARENT-WRAP::MATCH-SPECIALIZED TRANSPARENT-WRAP::X)
;               (TRANSPARENT-WRAP::MATCH-SPECIALIZED-REQUIREDS
;                TRANSPARENT-WRAP::Y)))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF 
; --> OPTIMA::%OR IF LET OPTIMA::%OR LET 
; ==>
;   (LET ((&OPTIONAL #:G7))
;     (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &OPTIONAL is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET OPTIMA::%OR 
; --> LET LET 
; ==>
;   (LET ((&REST #:G4))
;     (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;            (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
; 
; caught STYLE-WARNING:
;   The variable &REST is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET OPTIMA::%OR BLOCK TAGBODY RETURN-FROM 
; --> SYMBOL-MACROLET LET 
; ==>
;   (LET ((&KEY #:G2))
;     (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &KEY is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET TRANSPARENT-WRAP::CONSQUOTE 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK 
; --> TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET 
; --> TRANSPARENT-WRAP::CONSY 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET TRANSPARENT-WRAP::CONSX 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

;     (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X)
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &OPTIONAL)
;                               TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::LIST* (FARE-QUASIQUOTE::QUOTE &REST) REST
;                                TRANSPARENT-WRAP::X)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;               (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &KEY) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS TRANSPARENT-WRAP::X TRANSPARENT-WRAP::Y)
;        (LIST* (TRANSPARENT-WRAP::MATCH-SPECIALIZED TRANSPARENT-WRAP::X)
;               (TRANSPARENT-WRAP::MATCH-SPECIALIZED-REQUIREDS
;                TRANSPARENT-WRAP::Y)))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK 
; --> TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET 
; --> TRANSPARENT-WRAP::CONSX 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-OPTIONALS
;     (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X)
; ==>
;   TRANSPARENT-WRAP::X
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::LIST* (FARE-QUASIQUOTE::QUOTE &REST) REST
;                                TRANSPARENT-WRAP::X)
;        (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;               (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &KEY) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS TRANSPARENT-WRAP::X TRANSPARENT-WRAP::Y)
;        (LIST* (TRANSPARENT-WRAP::MATCH-OPTIONAL TRANSPARENT-WRAP::X)
;               (TRANSPARENT-WRAP::MATCH-OPTIONALS TRANSPARENT-WRAP::Y)))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF 
; --> OPTIMA::%OR IF LET OPTIMA::%OR LET LET 
; ==>
;   (LET ((&REST #:G4))
;     (LIST* (TRANSPARENT-WRAP::MAKE-REST-PARAM :NAME REST)
;            (TRANSPARENT-WRAP::MATCH-POST-REST TRANSPARENT-WRAP::X)))
; 
; caught STYLE-WARNING:
;   The variable &REST is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET OPTIMA::%OR 
; --> BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET LET 
; ==>
;   (LET ((&KEY #:G2))
;     (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &KEY is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET TRANSPARENT-WRAP::CONSX 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> OPTIMA::%IF OPTIMA::%OR IF LET TRANSPARENT-WRAP::CONSY 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-POST-REST
;     (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X)
; ==>
;   TRANSPARENT-WRAP::X
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &KEY) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF 
; --> OPTIMA::%OR IF LET OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> LET 
; ==>
;   (LET ((&KEY #:G0))
;     (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &KEY is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-KEYS
;     '&ALLOW-OTHER-KEYS
; 
; note: deleting unreachable code

;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &ALLOW-OTHER-KEYS)
;                               TRANSPARENT-WRAP::X)
;        (LIST* '&ALLOW-OTHER-KEYS
;               (TRANSPARENT-WRAP::MATCH-POST-KEYS TRANSPARENT-WRAP::X)))
;       ((FARE-QUASIQUOTE::CONS TRANSPARENT-WRAP::X TRANSPARENT-WRAP::Y)
;        (LIST* (TRANSPARENT-WRAP::MATCH-KEY TRANSPARENT-WRAP::X)
;               (TRANSPARENT-WRAP::MATCH-KEYS TRANSPARENT-WRAP::Y)))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF 
; --> OPTIMA::%OR IF LET OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET 
; --> LET 
; ==>
;   (LET ((&AUX #:G2))
;     (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &AUX is defined but never used.

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET 
; --> TRANSPARENT-WRAP::CONSX 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF OPTIMA::%OR IF LET 
; --> TRANSPARENT-WRAP::CONSY 
; ==>
;   TRANSPARENT-WRAP::PARAMS
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/src/match.lisp
; in: DEFUN MATCH-POST-KEYS
;     (OPTIMA:MATCH TRANSPARENT-WRAP::PARAMS
;       ((FARE-QUASIQUOTE::CONS (FARE-QUASIQUOTE::QUOTE &AUX) TRANSPARENT-WRAP::X)
;        (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
;       (NIL NIL))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM SYMBOL-MACROLET OPTIMA::%IF 
; --> OPTIMA::%OR IF LET OPTIMA::%OR LET 
; ==>
;   (LET ((&AUX #:G0))
;     (TRANSPARENT-WRAP::MATCH-AUXES TRANSPARENT-WRAP::X))
; 
; caught STYLE-WARNING:
;   The variable &AUX is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "transparent-wrap" "src" "match">
WARNING: redefining EMACS-INSPECT (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN REQUIRED-OPTIONAL-REST-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-REST-KEY
;            (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;             (TRANSPARENT-WRAP-TEST.STATEFUL::D
;              (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;             (TRANSPARENT-WRAP-TEST.STATEFUL::G
;              (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::H
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED) ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C TRANSPARENT-WRAP-TEST.STATEFUL::D
;               TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::F TRANSPARENT-WRAP-TEST.STATEFUL::G
;               TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-REST-KEY
;         (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;          &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;          (TRANSPARENT-WRAP-TEST.STATEFUL::D
;           (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;          (TRANSPARENT-WRAP-TEST.STATEFUL::G
;           (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::H
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED)
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-REST-KEY
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D (PUSH D-DEFAULT *STATE*)) (E (PUSH E-DEFAULT *STATE*) E-SUPPLIED) &REST REST &KEY F (G (PUSH G-DEFAULT *STATE*)) (H (PUSH H-DEFAULT *STATE*) H-SUPPLIED) ((Z I)) ((Y J) (PUSH J-DEFAULT *STATE*)) ((X K) (PUSH K-DEFAULT *STATE*) K-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN REQUIRED-OPTIONAL-REST-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-REST-KEY-AUX
;            (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;             (TRANSPARENT-WRAP-TEST.STATEFUL::D
;              (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;             (TRANSPARENT-WRAP-TEST.STATEFUL::G
;              (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::H
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED) ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C TRANSPARENT-WRAP-TEST.STATEFUL::D
;               TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::F TRANSPARENT-WRAP-TEST.STATEFUL::G
;               TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-REST-KEY-AUX
;         (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;          &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;          (TRANSPARENT-WRAP-TEST.STATEFUL::D
;           (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;          (TRANSPARENT-WRAP-TEST.STATEFUL::G
;           (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::H
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED)
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-REST-KEY-AUX
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D (PUSH D-DEFAULT *STATE*)) (E (PUSH E-DEFAULT *STATE*) E-SUPPLIED) &REST REST &KEY F (G (PUSH G-DEFAULT *STATE*)) (H (PUSH H-DEFAULT *STATE*) H-SUPPLIED) ((Z I)) ((Y J) (PUSH J-DEFAULT *STATE*)) ((X K) (PUSH K-DEFAULT *STATE*) K-SUPPLIED) &AUX L (M (PUSH (LIST A B C D E E-SUPPLIED F G H H-SUPPLIED I J K K-SUPPLIED REST L) *STATE*)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN REQUIRED-OPTIONAL-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-KEY
;            (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;             (TRANSPARENT-WRAP-TEST.STATEFUL::D
;              (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;             (TRANSPARENT-WRAP-TEST.STATEFUL::G
;              (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::H
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::I))
;             ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::J)
;              (PUSH :J-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)) ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C TRANSPARENT-WRAP-TEST.STATEFUL::D
;               TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::F TRANSPARENT-WRAP-TEST.STATEFUL::G
;               TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-KEY
;         (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;          &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;          (TRANSPARENT-WRAP-TEST.STATEFUL::D
;           (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;          (TRANSPARENT-WRAP-TEST.STATEFUL::G
;           (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::H
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::I))
;          ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::J)
;           (PUSH :J-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-KEY
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D (PUSH D-DEFAULT *STATE*)) (E (PUSH E-DEFAULT *STATE*) E-SUPPLIED) &KEY F (G (PUSH G-DEFAULT *STATE*)) (H (PUSH H-DEFAULT *STATE*) H-SUPPLIED) ((Z I)) ((Y J) (PUSH J-DEFAULT *STATE*)) ((X K) (PUSH K-DEFAULT *STATE*) K-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN REQUIRED-OPTIONAL-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-KEY-AUX
;            (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;             (TRANSPARENT-WRAP-TEST.STATEFUL::D
;              (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;             (TRANSPARENT-WRAP-TEST.STATEFUL::G
;              (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::H
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::I))
;             ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::J)
;              (PUSH :J-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)) ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C TRANSPARENT-WRAP-TEST.STATEFUL::D
;               TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::F TRANSPARENT-WRAP-TEST.STATEFUL::G
;               TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-KEY-AUX
;         (TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;          &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::C
;          (TRANSPARENT-WRAP-TEST.STATEFUL::D
;           (PUSH :D-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.STATEFUL::F
;          (TRANSPARENT-WRAP-TEST.STATEFUL::G
;           (PUSH :G-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::H
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::I))
;          ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::J)
;           (PUSH :J-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:REQUIRED-OPTIONAL-KEY-AUX
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D (PUSH D-DEFAULT *STATE*)) (E (PUSH E-DEFAULT *STATE*) E-SUPPLIED) &KEY F (G (PUSH G-DEFAULT *STATE*)) (H (PUSH H-DEFAULT *STATE*) H-SUPPLIED) ((Z I)) ((Y J) (PUSH J-DEFAULT *STATE*)) ((X K) (PUSH K-DEFAULT *STATE*) K-SUPPLIED) &AUX L (M (PUSH (LIST A B C D E E-SUPPLIED F G H H-SUPPLIED I J K K-SUPPLIED L) *STATE*)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN OPTIONAL-REST-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-REST-KEY
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;             (TRANSPARENT-WRAP-TEST.STATEFUL::B
;              (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::C
;              (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::F
;              (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)) ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C
;               TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::D TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::F
;               TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::G TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-REST-KEY
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;          (TRANSPARENT-WRAP-TEST.STATEFUL::B
;           (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::C
;           (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::F
;           (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-REST-KEY
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B (PUSH B-DEFAULT *STATE*)) (C (PUSH C-DEFAULT *STATE*) C-SUPPLIED) &REST REST &KEY D (E (PUSH E-DEFAULT *STATE*)) (F (PUSH F-DEFAULT *STATE*) F-SUPPLIED) ((Z G)) ((Y H) (PUSH H-DEFAULT *STATE*)) ((X I) (PUSH I-DEFAULT *STATE*) I-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN OPTIONAL-REST-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-REST-KEY-AUX
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;             (TRANSPARENT-WRAP-TEST.STATEFUL::B
;              (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::C
;              (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::F
;              (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)) ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C
;               TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::D TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::F
;               TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::G TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-REST-KEY-AUX
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;          (TRANSPARENT-WRAP-TEST.STATEFUL::B
;           (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::C
;           (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::F
;           (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-REST-KEY-AUX
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B (PUSH B-DEFAULT *STATE*)) (C (PUSH C-DEFAULT *STATE*) C-SUPPLIED) &REST REST &KEY D (E (PUSH E-DEFAULT *STATE*)) (F (PUSH F-DEFAULT *STATE*) F-SUPPLIED) ((Z G)) ((Y H) (PUSH H-DEFAULT *STATE*)) ((X I) (PUSH I-DEFAULT *STATE*) I-SUPPLIED) &AUX J (K (PUSH (LIST A B C C-SUPPLIED D E F F-SUPPLIED G H I I-SUPPLIED REST J) *STATE*)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN OPTIONAL-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-KEY
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;             (TRANSPARENT-WRAP-TEST.STATEFUL::B
;              (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::C
;              (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::F
;              (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             ((:X TRANSPARENT-WRAP-TEST.STATEFUL::I)
;              (PUSH :I-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::I-SUPPLIED))
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C
;               TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::D TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::F
;               TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::G TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-KEY
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;          (TRANSPARENT-WRAP-TEST.STATEFUL::B
;           (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::C
;           (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::F
;           (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          ((:X TRANSPARENT-WRAP-TEST.STATEFUL::I)
;           (PUSH :I-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::I-SUPPLIED))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-KEY
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B (PUSH B-DEFAULT *STATE*)) (C (PUSH C-DEFAULT *STATE*) C-SUPPLIED) &KEY D (E (PUSH E-DEFAULT *STATE*)) (F (PUSH F-DEFAULT *STATE*) F-SUPPLIED) ((Z G)) ((Y H) (PUSH H-DEFAULT *STATE*)) ((X I) (PUSH I-DEFAULT *STATE*) I-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFUN OPTIONAL-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-KEY-AUX
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;             (TRANSPARENT-WRAP-TEST.STATEFUL::B
;              (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::C
;              (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;             (TRANSPARENT-WRAP-TEST.STATEFUL::E
;              (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             (TRANSPARENT-WRAP-TEST.STATEFUL::F
;              (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;              (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;             ((:X TRANSPARENT-WRAP-TEST.STATEFUL::I)
;              (PUSH :I-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;              TRANSPARENT-WRAP-TEST.STATEFUL::I-SUPPLIED)
;             &AUX ...)
;       (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;       (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A TRANSPARENT-WRAP-TEST.STATEFUL::B
;               TRANSPARENT-WRAP-TEST.STATEFUL::C
;               TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::D TRANSPARENT-WRAP-TEST.STATEFUL::E
;               TRANSPARENT-WRAP-TEST.STATEFUL::F
;               TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.STATEFUL::G TRANSPARENT-WRAP-TEST.STATEFUL::H
;               TRANSPARENT-WRAP-TEST.STATEFUL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-KEY-AUX
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.STATEFUL::A
;          (TRANSPARENT-WRAP-TEST.STATEFUL::B
;           (PUSH :B-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::C
;           (PUSH :C-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.STATEFUL::D
;          (TRANSPARENT-WRAP-TEST.STATEFUL::E
;           (PUSH :E-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          (TRANSPARENT-WRAP-TEST.STATEFUL::F
;           (PUSH :F-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.STATEFUL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.STATEFUL::H)
;           (PUSH :H-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*))
;          ((:X TRANSPARENT-WRAP-TEST.STATEFUL::I)
;           (PUSH :I-DEFAULT TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;           TRANSPARENT-WRAP-TEST.STATEFUL::I-SUPPLIED)
;          &AUX ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.STATEFUL:OPTIONAL-KEY-AUX
;         (PUSH :BODY TRANSPARENT-WRAP-TEST.STATEFUL::*STATE*)
;         (VALUES TRANSPARENT-WRAP-TEST.STATEFUL::A
;                 TRANSPARENT-WRAP-TEST.STATEFUL::B
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C
;                 TRANSPARENT-WRAP-TEST.STATEFUL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::D
;                 TRANSPARENT-WRAP-TEST.STATEFUL::E
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F
;                 TRANSPARENT-WRAP-TEST.STATEFUL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.STATEFUL::G
;                 TRANSPARENT-WRAP-TEST.STATEFUL::H
;                 TRANSPARENT-WRAP-TEST.STATEFUL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B (PUSH B-DEFAULT *STATE*)) (C (PUSH C-DEFAULT *STATE*) C-SUPPLIED) &KEY D (E (PUSH E-DEFAULT *STATE*)) (F (PUSH F-DEFAULT *STATE*) F-SUPPLIED) ((Z G)) ((Y H) (PUSH H-DEFAULT *STATE*)) ((X I) (PUSH I-DEFAULT *STATE*) I-SUPPLIED) &AUX J (K (PUSH (LIST A B C C-SUPPLIED D E F F-SUPPLIED G H I I-SUPPLIED J) *STATE*)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFGENERIC GENERIC-KEY
;     (TRANSPARENT-WRAP-TEST.STATEFUL::A &OPTIONAL
;      TRANSPARENT-WRAP-TEST.STATEFUL::B &KEY TRANSPARENT-WRAP-TEST.STATEFUL::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/stateful.lisp
; in: DEFGENERIC GENERIC-REST-KEY
;     (TRANSPARENT-WRAP-TEST.STATEFUL::A &OPTIONAL
;      TRANSPARENT-WRAP-TEST.STATEFUL::B &REST REST &KEY
;      TRANSPARENT-WRAP-TEST.STATEFUL::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &REST REST &KEY C)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "transparent-wrap-test" "test" "stateful">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN REQUIRED-OPTIONAL-REST-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-REST-KEY
;            (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;              :E-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;              :H-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED) ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-REST-KEY
;         (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::B &OPTIONAL
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H :H-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED)
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-REST-KEY
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D D-DEFAULT) (E E-DEFAULT E-SUPPLIED) &REST REST &KEY F (G G-DEFAULT) (H H-DEFAULT H-SUPPLIED) ((Z I)) ((Y J) J-DEFAULT) ((X K) K-DEFAULT K-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN REQUIRED-OPTIONAL-REST-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-REST-KEY-AUX
;            (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;              :E-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;              :H-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED) ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-REST-KEY-AUX
;         (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::B &OPTIONAL
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H :H-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED)
;          ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-REST-KEY-AUX
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D D-DEFAULT) (E E-DEFAULT E-SUPPLIED) &REST REST &KEY F (G G-DEFAULT) (H H-DEFAULT H-SUPPLIED) ((Z I)) ((Y J) J-DEFAULT) ((X K) K-DEFAULT K-SUPPLIED) &AUX L (M (LIST A B C D E E-SUPPLIED F G H H-SUPPLIED I J K K-SUPPLIED REST L)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN REQUIRED-OPTIONAL-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-KEY
;            (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;              :E-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;              :H-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::I))
;             ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::J) :J-DEFAULT) ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-KEY
;         (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::B &OPTIONAL
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H :H-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::I))
;          ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::J) :J-DEFAULT) ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-KEY
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D D-DEFAULT) (E E-DEFAULT E-SUPPLIED) &KEY F (G G-DEFAULT) (H H-DEFAULT H-SUPPLIED) ((Z I)) ((Y J) J-DEFAULT) ((X K) K-DEFAULT K-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN REQUIRED-OPTIONAL-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-KEY-AUX
;            (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;              :E-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;              :H-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::I))
;             ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::J) :J-DEFAULT) ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-KEY-AUX
;         (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::B &OPTIONAL
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::D :D-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::G :G-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::H :H-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::I))
;          ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::J) :J-DEFAULT) ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:REQUIRED-OPTIONAL-KEY-AUX
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A B &OPTIONAL C (D D-DEFAULT) (E E-DEFAULT E-SUPPLIED) &KEY F (G G-DEFAULT) (H H-DEFAULT H-SUPPLIED) ((Z I)) ((Y J) J-DEFAULT) ((X K) K-DEFAULT K-SUPPLIED) &AUX L (M (LIST A B C D E E-SUPPLIED F G H H-SUPPLIED I J K K-SUPPLIED L)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN OPTIONAL-REST-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-REST-KEY
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;              :C-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;              :F-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT) ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-REST-KEY
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F :F-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT) ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-REST-KEY
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B B-DEFAULT) (C C-DEFAULT C-SUPPLIED) &REST REST &KEY D (E E-DEFAULT) (F F-DEFAULT F-SUPPLIED) ((Z G)) ((Y H) H-DEFAULT) ((X I) I-DEFAULT I-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN OPTIONAL-REST-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-REST-KEY-AUX
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;              :C-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;             &REST REST
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;              :F-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT) ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-REST-KEY-AUX
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &REST REST &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F :F-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT) ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-REST-KEY-AUX
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B B-DEFAULT) (C C-DEFAULT C-SUPPLIED) &REST REST &KEY D (E E-DEFAULT) (F F-DEFAULT F-SUPPLIED) ((Z G)) ((Y H) H-DEFAULT) ((X I) I-DEFAULT I-SUPPLIED) &AUX J (K (LIST A B C C-SUPPLIED D E F F-SUPPLIED G H I I-SUPPLIED REST J)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN OPTIONAL-KEY
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-KEY
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;              :C-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;              :F-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT)
;             ((:X TRANSPARENT-WRAP-TEST.FUNCTIONAL::I)
;              :I-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::I-SUPPLIED))
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-KEY
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F :F-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT)
;          ((:X TRANSPARENT-WRAP-TEST.FUNCTIONAL::I) :I-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::I-SUPPLIED))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-KEY
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B B-DEFAULT) (C C-DEFAULT C-SUPPLIED) &KEY D (E E-DEFAULT) (F F-DEFAULT F-SUPPLIED) ((Z G)) ((Y H) H-DEFAULT) ((X I) I-DEFAULT I-SUPPLIED))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFUN OPTIONAL-KEY-AUX
;     (DEFUN TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-KEY-AUX
;            (
;             &OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;              :C-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;             &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;             (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;              :F-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;             ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;             ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT)
;             ((:X TRANSPARENT-WRAP-TEST.FUNCTIONAL::I)
;              :I-DEFAULT
;              TRANSPARENT-WRAP-TEST.FUNCTIONAL::I-SUPPLIED)
;             &AUX ...)
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-KEY-AUX
;         (&OPTIONAL TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::E :E-DEFAULT)
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::F :F-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED)
;          ((:Z TRANSPARENT-WRAP-TEST.FUNCTIONAL::G))
;          ((:Y TRANSPARENT-WRAP-TEST.FUNCTIONAL::H) :H-DEFAULT)
;          ((:X TRANSPARENT-WRAP-TEST.FUNCTIONAL::I) :I-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::I-SUPPLIED)
;          &AUX ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK TRANSPARENT-WRAP-TEST.FUNCTIONAL:OPTIONAL-KEY-AUX
;         (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::D
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::E
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::F-SUPPLIED
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::G
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::H
;                 TRANSPARENT-WRAP-TEST.FUNCTIONAL::I ...)))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL A (B B-DEFAULT) (C C-DEFAULT C-SUPPLIED) &KEY D (E E-DEFAULT) (F F-DEFAULT F-SUPPLIED) ((Z G)) ((Y H) H-DEFAULT) ((X I) I-DEFAULT I-SUPPLIED) &AUX J (K (LIST A B C C-SUPPLIED D E F F-SUPPLIED G H I I-SUPPLIED J)))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFGENERIC GENERIC-KEY
;     (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL
;      TRANSPARENT-WRAP-TEST.FUNCTIONAL::B &KEY TRANSPARENT-WRAP-TEST.FUNCTIONAL::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &KEY C)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFMETHOD GENERIC-REST (INTEGER)
;     (DEFMETHOD TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST
;                ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A INTEGER)
;                 &OPTIONAL
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                  :B-DEFAULT
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;                 &KEY
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                  :C-DEFAULT
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED))
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST
;                           (INTEGER))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;          &KEY
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL # &KEY #)
;           (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))))
;       (DECLARE (SB-PCL::%PARAMETER TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (TYPE INTEGER TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (IGNORABLE TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS TRANSPARENT-WRAP-TEST.FUNCTIONAL::A INTEGER))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable C-SUPPLIED is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B-SUPPLIED is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFMETHOD GENERIC-REST (CONS)
;     (DEFMETHOD TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST
;                ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A CONS)
;                 &OPTIONAL
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                  :B-DEFAULT-CONS
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;                 &KEY
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                  :C-DEFAULT-CONS
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED))
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST (CONS))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT-CONS
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;          &KEY
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT-CONS
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL # &KEY #)
;           (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))))
;       (DECLARE (SB-PCL::%PARAMETER TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (TYPE CONS TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (IGNORABLE TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS TRANSPARENT-WRAP-TEST.FUNCTIONAL::A CONS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable C-SUPPLIED is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B-SUPPLIED is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFGENERIC GENERIC-REST-KEY
;     (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL
;      TRANSPARENT-WRAP-TEST.FUNCTIONAL::B &REST REST &KEY
;      TRANSPARENT-WRAP-TEST.FUNCTIONAL::C)
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (A &OPTIONAL B &REST REST &KEY C)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFMETHOD GENERIC-REST-KEY (INTEGER)
;     (DEFMETHOD TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST-KEY
;                ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A INTEGER)
;                 &OPTIONAL
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                  :B-DEFAULT
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;                 &KEY
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                  :C-DEFAULT
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED))
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST-KEY
;                           (INTEGER))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;          &KEY
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL # &KEY #)
;           (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))))
;       (DECLARE (SB-PCL::%PARAMETER TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (TYPE INTEGER TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (IGNORABLE TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS TRANSPARENT-WRAP-TEST.FUNCTIONAL::A INTEGER))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable C-SUPPLIED is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B-SUPPLIED is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210922-git/test/functional.lisp
; in: DEFMETHOD GENERIC-REST-KEY (CONS)
;     (DEFMETHOD TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST-KEY
;                ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A CONS)
;                 &OPTIONAL
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                  :B-DEFAULT-CONS
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;                 &KEY
;                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C
;                  :C-DEFAULT-CONS
;                  TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED))
;       (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;               TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           TRANSPARENT-WRAP-TEST.FUNCTIONAL:GENERIC-REST-KEY
;                           (CONS))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.
;          TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::B :B-DEFAULT-CONS
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::B-SUPPLIED)
;          &KEY
;          (TRANSPARENT-WRAP-TEST.FUNCTIONAL::C :C-DEFAULT-CONS
;           TRANSPARENT-WRAP-TEST.FUNCTIONAL::C-SUPPLIED)
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A &OPTIONAL # &KEY #)
;           (VALUES TRANSPARENT-WRAP-TEST.FUNCTIONAL::A
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::B
;                   TRANSPARENT-WRAP-TEST.FUNCTIONAL::C))))
;       (DECLARE (SB-PCL::%PARAMETER TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (TYPE CONS TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (DECLARE (IGNORABLE TRANSPARENT-WRAP-TEST.FUNCTIONAL::A))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (TRANSPARENT-WRAP-TEST.FUNCTIONAL::A)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS TRANSPARENT-WRAP-TEST.FUNCTIONAL::A CONS))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable C-SUPPLIED is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable B-SUPPLIED is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "transparent-wrap-test" "test" "functional">
; 
; caught ERROR:
;   READ error during COMPILE-FILE: The function TRANSPARENT-WRAP::CONSQUOTE is undefined.(in form starting at line: 11, column: 0, position: 372)
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "transparent-wrap-test" "test" "wrapping">

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

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