Chụp giá trị trả lại "ban đầu" từ với-out-str

Question

Tôi đang sử dụng không có đường để chụp một số dữ liệu được in thành giá trị chuẩn. Vấn đề là với-out-str dường như vứt bỏ giá trị trả về từ chức năng của tôi. Có cách nào tôi có thể nắm bắt cả hai? Tôi cũng muốn có bánh và ăn nó.

Ví dụ:

(with-out-str (do (prn "test") (+ 1 1))) 

Answer 1

bắt chước các định nghĩa của các thư viện lõi của with-out-str vĩ mô, bạn có thể xác định một tương tự như thế này:

(defmacro with-out-str-and-value 
    [& body] 
    `(let [s# (new java.io.StringWriter)] 
    (binding [*out* s#] 
     (let [v# ~@body] 
     (vector (str s#) 
       v#))))) 

Without the values function from Common Lisp và nó multiple function return values, ở đây chúng tôi quay trở lại một vector thay thế; mục đầu tiên là văn bản được thu thập từ đầu ra tiêu chuẩn và mục thứ hai là giá trị được trả về bằng cách đánh giá biểu mẫu cơ thể.