From 2571bf66013bec45a6849aa188fe306ad8dc7ce3 Mon Sep 17 00:00:00 2001 From: Nathan Paul Simons <20070970+npsimons@users.noreply.github.com> Date: Thu, 10 Sep 2020 18:47:16 -0700 Subject: [PATCH] Update to work with modern MongoDB I'm a total noob at Common Lisp and MongoDB. I just happened to be working through https://github.com/adamtornhill/LispForTheWeb by @adamtornhill, and managed to hack a bit on this to get it working. I've had literally zero looks at the rest of the code, so I'm sure there's much more work to be done. At least this is a start, and hopefully not completely wrong. --- src/map-reduce.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/map-reduce.lisp b/src/map-reduce.lisp index 3a91a2b..8fb33f3 100644 --- a/src/map-reduce.lisp +++ b/src/map-reduce.lisp @@ -4,7 +4,7 @@ mongo map reduce |# -(defmacro $map-reduce (collection map reduce &key (query nil) (limit 0) (out nil) +(defmacro $map-reduce (collection map reduce &key (query nil) (limit nil) (out nil) (keeptemp nil) (finalize nil) (verbose t)) "Run map reduce on the mongo server. map and reduce are either the names of the javascript functions, created with defjs or defsrvjs or are function definitions in javascript. @@ -16,8 +16,7 @@ When using :keeptemp t without specificing :out the collection is mr.