cl-mongo

SBCL 1.4.3 / ASDF 3.3.1

cl-mongo-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/cl-mongo.asd" contains definition for system "cl-mongo-test". Please only define "cl-mongo" and secondary systems with a name starting with "cl-mongo/" (e.g. "cl-mongo/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/cl-mongo.asd" contains definition for system "cl-mongo-test". Please only define "cl-mongo" and secondary systems with a name starting with "cl-mongo/" (e.g. "cl-mongo/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/cl-mongo.asd" contains definition for system "cl-mongo-test". Please only define "cl-mongo" and secondary systems with a name starting with "cl-mongo/" (e.g. "cl-mongo/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-utf-8/a6eb987246e5f233c6b9c4b8b15edbbe2770d848/trivial-utf-8-20180125-darcs/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-who/5eee5f82fc134dc50cf7972f4f461d89ff63e084/cl-who-20180125-git/cl-who.asd" contains definition for system "cl-who-test". Please only define "cl-who" and secondary systems with a name starting with "cl-who/" (e.g. "cl-who/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180125-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/split-sequence/6bf91fd8e42f64c90d6658cbe89556e4ed08c84f/split-sequence-1.2/split-sequence.asd" contains definition for system "split-sequence-tests". Please only define "split-sequence" and secondary systems with a name starting with "split-sequence/" (e.g. "split-sequence/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/pair.lisp
; in: DEFMETHOD KV (SYMBOL)
;     (CAR REST)
; ==>
;   REST
; 
; caught STYLE-WARNING:
;   reading an ignored variable: REST
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-mongo" "src" "pair">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/bson-decode.lisp
; in: DEFUN HT->LIST.1
;     (LAMBDA (CL-MONGO::K CL-MONGO::V) (PUSH CL-MONGO::V CL-MONGO::LST))
; ==>
;   #'(LAMBDA (CL-MONGO::K CL-MONGO::V) (PUSH CL-MONGO::V CL-MONGO::LST))
; 
; caught STYLE-WARNING:
;   The variable K is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-mongo" "src" "bson-decode">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/document.lisp
; in: DEFUN HASH-KEYS
;     (MULTIPLE-VALUE-BIND (CL-MONGO::EXISTS-P CL-MONGO::KEY CL-MONGO::VALUE)
;         (CL-MONGO::ITERATOR)
;       (WHEN CL-MONGO::EXISTS-P (PUSH CL-MONGO::KEY CL-MONGO::LST)))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL (CL-MONGO::EXISTS-P) (CL-MONGO::KEY) (CL-MONGO::VALUE)
;          &REST #:G3)
;       (DECLARE (IGNORE #:G3))
;       (WHEN CL-MONGO::EXISTS-P (PUSH CL-MONGO::KEY CL-MONGO::LST)))
; 
; caught STYLE-WARNING:
;   The variable VALUE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/document.lisp
; in: DEFMETHOD DOC-ELEMENTS (HASH-TABLE)
;     (MULTIPLE-VALUE-BIND (CL-MONGO::EXISTS-P CL-MONGO::KEY CL-MONGO::VALUE)
;         (CL-MONGO::ITERATOR)
;       (WHEN CL-MONGO::EXISTS-P (PUSH CL-MONGO::KEY CL-MONGO::LST)))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL (CL-MONGO::EXISTS-P) (CL-MONGO::KEY) (CL-MONGO::VALUE)
;          &REST #:G8)
;       (DECLARE (IGNORE #:G8))
;       (WHEN CL-MONGO::EXISTS-P (PUSH CL-MONGO::KEY CL-MONGO::LST)))
; 
; caught STYLE-WARNING:
;   The variable VALUE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-mongo" "src" "document">
WARNING: redefining DESCRIBE-OBJECT (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/mongo-syntax.lisp
; in: DEFMACRO $WHERE
;     (DEFMACRO CL-MONGO:$WHERE (&REST CL-MONGO::ARGS)
;       `(CL-MONGO:KV "$where" ,@CL-MONGO::ARGS))
; --> PROGN 
; ==>
;   (EVAL-WHEN (:COMPILE-TOPLEVEL)
;     (SB-C::%COMPILER-DEFMACRO :MACRO-FUNCTION 'CL-MONGO:$WHERE T))
; 
; caught STYLE-WARNING:
;   Duplicate definition for $WHERE found in one file.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-mongo" "src" "mongo-syntax">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/db.lisp
; in: DEFMACRO DB.SORT
;     (LET ((CL-MONGO::KV-QUERY (GENSYM)))
;       `(DESTRUCTURING-BIND
;            (
;             &KEY (CL-MONGO::SELECTOR NIL) (CL-MONGO:MONGO (CL-MONGO:MONGO))
;             (CL-MONGO::LIMIT 0) (CL-MONGO::SKIP 0) (CL-MONGO::OPTIONS 0)
;             (CL-MONGO::FIELD NIL) (CL-MONGO::ASC T))
;            (LIST ,@CL-MONGO::ARGS)
;          (LET ((CL-MONGO::KV-QUERY #))
;            (CL-MONGO:DB.FIND ,CL-MONGO::COLLECTION (CL-MONGO:KV # #) :LIMIT
;             CL-MONGO::LIMIT :MONGO CL-MONGO:MONGO :SKIP CL-MONGO::SKIP :SELECTOR
;             CL-MONGO::SELECTOR :OPTIONS ...))))
; 
; caught STYLE-WARNING:
;   The variable KV-QUERY is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/db.lisp
; in: DEFMACRO DB.SORT
;     (LET ((CL-MONGO::KV-QUERY (GENSYM)))
;       `(DESTRUCTURING-BIND
;            (
;             &KEY (CL-MONGO::SELECTOR NIL) (CL-MONGO:MONGO (CL-MONGO:MONGO))
;             (CL-MONGO::LIMIT 0) (CL-MONGO::SKIP 0) (CL-MONGO::OPTIONS 0)
;             (CL-MONGO::FIELD NIL) (CL-MONGO::ASC T))
;            (LIST ,@CL-MONGO::ARGS)
;          (LET ((CL-MONGO::KV-QUERY #))
;            (CL-MONGO:DB.FIND ,CL-MONGO::COLLECTION (CL-MONGO:KV # #) :LIMIT
;             CL-MONGO::LIMIT :MONGO CL-MONGO:MONGO :SKIP CL-MONGO::SKIP :SELECTOR
;             CL-MONGO::SELECTOR :OPTIONS ...))))
; 
; caught STYLE-WARNING:
;   The variable KV-QUERY is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/db.lisp
; in: DEFMETHOD DB.DELETE (T (EQL NIL))
;     (DEFMETHOD CL-MONGO:DB.DELETE
;                ((CL-MONGO::COLLECTION T) (CL-MONGO:DOCUMENT (EQL NIL))
;                 &KEY (CL-MONGO:MONGO (CL-MONGO:MONGO))))
; --> 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 CL-MONGO:DB.DELETE (T (EQL NIL)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CL-MONGO::COLLECTION
;          CL-MONGO:DOCUMENT &KEY (CL-MONGO:MONGO (CL-MONGO:MONGO))
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER CL-MONGO:DOCUMENT))
;       (DECLARE (SB-PCL::%PARAMETER CL-MONGO::COLLECTION))
;       (DECLARE (TYPE T CL-MONGO::COLLECTION))
;       (DECLARE (IGNORABLE CL-MONGO:DOCUMENT CL-MONGO::COLLECTION))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CL-MONGO::COLLECTION
;                                                  CL-MONGO:DOCUMENT)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CL-MONGO::COLLECTION
;                                                  CL-MONGO:DOCUMENT)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable MONGO is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/db.lisp
; in: DEFMETHOD DB.RUN-COMMAND ((EQL :DROP))
;     (DEFMETHOD CL-MONGO:DB.RUN-COMMAND
;                ((CL-MONGO::CMD (EQL :DROP))
;                 &KEY (CL-MONGO:MONGO (CL-MONGO:MONGO)) (CL-MONGO::COLLECTION NIL)
;                 (CL-MONGO::INDEX "*"))
;       (ASSERT (NOT (NULL CL-MONGO::COLLECTION)))
;       (CL-MONGO:DB.FIND "$cmd"
;        (CL-MONGO::KV->HT (CL-MONGO:KV "drop" CL-MONGO::COLLECTION)) :MONGO
;        CL-MONGO:MONGO))
; --> 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 CL-MONGO:DB.RUN-COMMAND
;                           ((EQL :DROP)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CL-MONGO::CMD &KEY
;          (CL-MONGO:MONGO (CL-MONGO:MONGO)) (CL-MONGO::COLLECTION NIL)
;          (CL-MONGO::INDEX "*") &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER CL-MONGO::CMD))
;       (DECLARE (IGNORABLE CL-MONGO::CMD))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CL-MONGO::CMD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CL-MONGO::CMD) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INDEX is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/src/db.lisp
; in: DEFMETHOD DB.ADD-USER (STRING STRING)
;     (DEFMETHOD CL-MONGO:DB.ADD-USER
;                ((CL-MONGO::USERNAME STRING) (CL-MONGO::PASSWORD STRING)
;                 &KEY (CL-MONGO:MONGO (CL-MONGO:MONGO)) (CL-MONGO::READONLY NIL))
;       (LET* ((CL-MONGO::PWD
;               (CONCATENATE 'STRING CL-MONGO::USERNAME ":mongo:"
;                            CL-MONGO::PASSWORD))
;              (CL-MONGO::MD5-PWD (CL-MONGO::HEX-MD5 CL-MONGO::PWD))
;              (CL-MONGO::MD5-PWD-STR
;               (IRONCLAD:BYTE-ARRAY-TO-HEX-STRING CL-MONGO::MD5-PWD)))
;         (CL-MONGO:DB.SAVE "system.users"
;          (CL-MONGO:KV (CL-MONGO:KV "user" CL-MONGO::USERNAME)
;                       (CL-MONGO:KV "pwd" CL-MONGO::MD5-PWD-STR))
;          :MONGO CL-MONGO:MONGO)))
; --> 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 CL-MONGO:DB.ADD-USER
;                           (STRING STRING))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. CL-MONGO::USERNAME
;          CL-MONGO::PASSWORD &KEY (CL-MONGO:MONGO (CL-MONGO:MONGO))
;          (CL-MONGO::READONLY NIL) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER CL-MONGO::PASSWORD))
;       (DECLARE (SB-PCL::%PARAMETER CL-MONGO::USERNAME))
;       (DECLARE (TYPE STRING CL-MONGO::PASSWORD))
;       (DECLARE (TYPE STRING CL-MONGO::USERNAME))
;       (DECLARE (IGNORABLE CL-MONGO::PASSWORD CL-MONGO::USERNAME))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((CL-MONGO::USERNAME
;                                                  CL-MONGO::PASSWORD)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (CL-MONGO::USERNAME
;                                                  CL-MONGO::PASSWORD)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS CL-MONGO::PASSWORD STRING))
;           (DECLARE (SB-PCL::%CLASS CL-MONGO::USERNAME STRING))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable READONLY is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-mongo" "src" "db">
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/cl-mongo.asd" contains definition for system "cl-mongo-test". Please only define "cl-mongo" and secondary systems with a name starting with "cl-mongo/" (e.g. "cl-mongo/test") in that file.
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-mongo-test"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-mongo") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/test/regression.lisp
; in: DEFUN TEST-JAVASCRIPT => DEFJS ECHO
;     (CL-MONGO:DEFJS CL-MONGO-TEST::ECHO
;         (CL-MONGO-TEST::X)
;       (RETURN CL-MONGO-TEST::X))
; --> LET* 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::X) (RETURN CL-MONGO-TEST::X)))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

; in: DEFUN TEST-JAVASCRIPT => DEFJS SET-VALUE
;     (CL-MONGO:DEFJS CL-MONGO-TEST::SET-VALUE
;         (CL-MONGO-TEST::VALUE)
;       (CL-MONGO:TRANSFORM CL-MONGO-TEST::DB.FOO
;        (LAMBDA (CL-MONGO-TEST::OBJ) (SETF # CL-MONGO-TEST::VALUE))))
; --> LET* 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::VALUE)
;       (CL-MONGO:TRANSFORM CL-MONGO-TEST::DB.FOO
;        (LAMBDA (CL-MONGO-TEST::OBJ) (SETF #)))))
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead

; in: DEFUN TEST-JAVASCRIPT => DEFSRVJS REMOTE_ECHO
;     (CL-MONGO:DEFSRVJS CL-MONGO-TEST::REMOTE_ECHO
;         (CL-MONGO-TEST::X)
;       (RETURN CL-MONGO-TEST::X))
; --> LET* CL-MONGO::MAKE-BSON-CODE 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::X) (RETURN CL-MONGO-TEST::X)))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

; in: DEFUN TEST-JAVASCRIPT => DEFSRVJS REMOTE_SETVALUE
;     (CL-MONGO:DEFSRVJS CL-MONGO-TEST::REMOTE_SETVALUE
;         (CL-MONGO-TEST::VALUE)
;       (CL-MONGO:TRANSFORM CL-MONGO-TEST::DB.FOO
;        (LAMBDA (CL-MONGO-TEST::OBJ) (SETF # CL-MONGO-TEST::VALUE))))
; --> LET* CL-MONGO::MAKE-BSON-CODE 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::VALUE)
;       (CL-MONGO:TRANSFORM CL-MONGO-TEST::DB.FOO
;        (LAMBDA (CL-MONGO-TEST::OBJ) (SETF #)))))
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead

; in: DEFUN TEST-JAVASCRIPT => DEFSRVJS TF8
;     (CL-MONGO:DEFSRVJS CL-MONGO-TEST::TF8
;         NIL
;       (LET* ((CL-MONGO-TEST::L (MAKE-ARRAY 1 2 3 4 5))
;              (CL-MONGO-TEST::K (MAKE-ARRAY)))
;         (DOLIST (CL-MONGO-TEST::C CL-MONGO-TEST::L)
;           (CL-MONGO-TEST::K.PUSH CL-MONGO-TEST::C)
;           (CL-MONGO-TEST::DB.FOO.SAVE
;            (PARENSCRIPT:CREATE :FIELD CL-MONGO-TEST::C)))
;         (RETURN CL-MONGO-TEST::K)))
; --> LET* CL-MONGO::MAKE-BSON-CODE 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA ()
;       (LET* ((CL-MONGO-TEST::L #) (CL-MONGO-TEST::K #))
;         (DOLIST (CL-MONGO-TEST::C CL-MONGO-TEST::L)
;           (CL-MONGO-TEST::K.PUSH CL-MONGO-TEST::C)
;           (CL-MONGO-TEST::DB.FOO.SAVE #))
;         (RETURN CL-MONGO-TEST::K))))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

; in: DEFUN TEST-JAVASCRIPT => DEFSRVJS MULTIP
;     (CL-MONGO:DEFSRVJS CL-MONGO-TEST::MULTIP
;         (CL-MONGO-TEST::X CL-MONGO-TEST::Y)
;       (RETURN (* CL-MONGO-TEST::Y CL-MONGO-TEST::X)))
; --> LET* CL-MONGO::MAKE-BSON-CODE 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::X CL-MONGO-TEST::Y)
;       (RETURN (* CL-MONGO-TEST::Y CL-MONGO-TEST::X))))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

; in: DEFUN TEST-JAVASCRIPT => DEFSRVJS TF17
;     (CL-MONGO:DEFSRVJS CL-MONGO-TEST::TF17
;         (CL-MONGO-TEST::VALUE)
;       (CL-MONGO:TRANSFORM CL-MONGO-TEST::DB.FOO
;        (LAMBDA (CL-MONGO-TEST::OBJ) (SETF # #))))
; --> LET* CL-MONGO::MAKE-BSON-CODE 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::VALUE)
;       (CL-MONGO:TRANSFORM CL-MONGO-TEST::DB.FOO
;        (LAMBDA (CL-MONGO-TEST::OBJ) (SETF #)))))
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead
; 
; caught STYLE-WARNING:
;   SLOT-VALUE is deprecated, use GETPROP instead

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-mongo/65b1c29c5c6bf02f9bbd7d64a260089968c41eec/cl-mongo-20180125-git/test/regression.lisp
; in: DEFUN TEST-MAP-REDUCE => DEFJS GET_SOME_VALUE
;     (CL-MONGO:DEFJS CL-MONGO-TEST::GET_SOME_VALUE
;         (CL-MONGO-TEST::K CL-MONGO-TEST::VALS)
;       (LET ((CL-MONGO-TEST::SUM 0) (CL-MONGO-TEST::INDEX 0))
;         (DOLIST (CL-MONGO-TEST::C CL-MONGO-TEST::VALS)
;           (IF (= CL-MONGO-TEST::INDEX 3)
;               (RETURN CL-MONGO-TEST::C)
;               (PROGN # #)))
;         (RETURN CL-MONGO-TEST::SUM)))
; --> LET* 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::K CL-MONGO-TEST::VALS)
;       (LET ((CL-MONGO-TEST::SUM 0) (CL-MONGO-TEST::INDEX 0))
;         (DOLIST (CL-MONGO-TEST::C CL-MONGO-TEST::VALS)
;           (IF #
;               #
;               #))
;         (RETURN CL-MONGO-TEST::SUM))))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

; in: DEFUN TEST-MAP-REDUCE => DEFJS SUMREDUCE
;     (CL-MONGO:DEFJS CL-MONGO-TEST::SUMREDUCE
;         (CL-MONGO-TEST::K CL-MONGO-TEST::VALS)
;       (LET ((CL-MONGO-TEST::SUM 0))
;         (DOLIST (CL-MONGO-TEST::C CL-MONGO-TEST::VALS)
;           (INCF CL-MONGO-TEST::SUM CL-MONGO-TEST::C))
;         (RETURN CL-MONGO-TEST::SUM)))
; --> LET* 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::K CL-MONGO-TEST::VALS)
;       (LET ((CL-MONGO-TEST::SUM 0))
;         (DOLIST (CL-MONGO-TEST::C CL-MONGO-TEST::VALS)
;           (INCF CL-MONGO-TEST::SUM CL-MONGO-TEST::C))
;         (RETURN CL-MONGO-TEST::SUM))))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

;     (CL-MONGO:DEFJS CL-MONGO-TEST::SUMREDUCE
;         (CL-MONGO-TEST::K CL-MONGO-TEST::VALS)
;       (RETURN 1))
; --> LET* 
; ==>
;   (PARENSCRIPT:PS
;     (LAMBDA (CL-MONGO-TEST::K CL-MONGO-TEST::VALS) (RETURN 1)))
; 
; caught WARNING:
;   Returning from unknown block nilBlock

; in: DEFUN TEST-MAP-REDUCE
;     (CL-MONGO:$MAP-REDUCE CL-MONGO-TEST::COLLECTION CL-MONGO-TEST::MAP_KEYS
;                           CL-MONGO-TEST::GET_SOME_VALUE :OUT "testit")
; --> CL-MONGO:DB.FIND CL-MONGO:KV CL-MONGO:KV IF CONCATENATE 
; ==>
;   CL-MONGO-TEST::COLLECTION
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001DB0083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-mongo-test" "test" "regression">

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

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 7 WARNING conditions
;   caught 22 STYLE-WARNING conditions
;   printed 1 note