swank-utils.lisp

(defpackage :fwoar.swank-utils
  #+fw.dev
  (:nicknames fw.su)
  (:use :cl )
  (:export #:log-json #:log-object))
(in-package :fwoar.swank-utils)

(defvar *target-identifier* (alexandria:make-keyword (gensym "JSON")))
(defun log-json (obj &optional (indent t) (target-identifier *target-identifier*))
  (let* ((buffer-stream (swank-buffer-streams:make-buffer-output-stream target-identifier))
         (stream (yason:make-json-output-stream buffer-stream :indent indent)))
    (unwind-protect (progn (fresh-line buffer-stream)
                           (values (yason:encode obj stream)
                                   target-identifier))
      (terpri buffer-stream)
      (finish-output stream)
      (finish-output buffer-stream)
      (close stream))))

(defvar *log-target-identifier* (alexandria:make-keyword (gensym "LOG")))
(defun log-object (obj &optional (target-identifier *log-target-identifier*))
  (let* ((stream (swank-buffer-streams:make-buffer-output-stream target-identifier)))
    (unwind-protect (progn (fresh-line stream)
                           (values (princ obj stream)
                                   target-identifier))
      (terpri stream)
      (finish-output stream)
      (close stream))))