{"body":"(defmacro with-aggregate/object ((stream opening-char closing-char) &body body)\n  \"Set up serialization context for aggregate serialization with the\n  object encoder.\"\n  (alexandria:with-gensyms (printed)\n    `(progn\n       (write-delimiter ,opening-char ,stream)\n       (change-indentation ,stream #'+)\n       (prog1\n           (let (,printed)\n             (macrolet ((with-element-output (() &body body)\n                          `(progn\n                             (cond\n                               (,',printed\n                                (write-delimiter #\\, ,',stream))\n                               (t\n                                (setf ,',printed t)))\n                             (write-indentation ,',stream)\n                             ,@body)))\n               ,@body))\n         (change-indentation ,stream #'-)\n         (write-indentation ,stream)\n         (write-delimiter ,closing-char ,stream)))))\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/2i6wi4lR","modified":1523339859,"id":"2i6wi4lR","size":925,"lines":22,"own_paste":false,"theme":"","date":1523339859}