SBCL 2.0.5 / ASDF 3.3.1
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210321-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/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210321-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/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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 WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210321-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: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "transparent-wrap-test"), but dependency (ASDF/LISP-ACTION:LOAD-OP "transparent-wrap") wasn't done yet! ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/transparent-wrap/60be87e9f50ecbbde5038341a990ab8e5aaa18f4/transparent-wrap-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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-20210321-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 {1000A10083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "transparent-wrap-test" "test" "wrapping"> Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A10083}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1010874DB3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1010874DB3}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1010874DB3}>) 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 {1005A15E33}>) [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 {1005A15E33}>) [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 #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A0E5DB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005A0C03B}> :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-d0rq2eax/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-d0rq2eax/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-d0rq2eax/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE)) 28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 2 fatal ERROR conditions ; caught 1 ERROR condition ; caught 40 STYLE-WARNING conditions ; printed 19 notes